'   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '           N a m e :   C o n t r o l _ 7 8 _ N e w H o m i n g . t x t                               D a t e :   0 8   S e t   2 0 2 0 
 
 '         A u t o r :   L e o n a r d o   D E   P A L O 
 
 '         S c o p e :   T e s t   C O R E X Y   f r o m   W i n g o 
 
 '   H a r d w a r e :   S t a n d a r d   M a s t e r . 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 
 
 O p t i o n   S p e e d   9 
 
 
 
 C O M   O p e n   1   1 1 5 2 0 0 
 
 
 
 S p e e d S e a r c h   =   - 0 . 3 3 3 	             '   d i r e c t i o n   a n d   s p e e d 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   O p t i o n s 
 
 K e y J o g _ S p e e d   =   1 0 0 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   S o f t w a r e   l i m i t s 
 
 D e s t x M a x   =       2 5 6 
 
 D e s t x M i n   =           5 
 
 D e s t y M a x   =       1 4 4 
 
 q q q   =           5 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   M O T O R S   A S S I G N E M E N T S 
 
 P O W E R _ I N               =   3 6 3 	 '   m a i n   p o w e r   p l u g   i n s e r t 
 
 P O W E R _ O U T             =   6 6 5         '   m a i n   p o w e r   p l u g   o u t 
 
 
 
 U S B 3 _ I N                 =   2 1 2 
 
 U S B 3 _ O U T               =   6 2 0 
 
 
 
 U S B C _ I N                 =   3 8 4 
 
 U S B C _ O U T               =   6 7 0 
 
 H D M I _ I N                 =   9 9 5 
 
 H D M I _ O U T               =   7 8 7 
 
 U S B P W R _ I N             =   2 0 5 
 
 U S B P W R _ O U T           =   4 7 0 
 
 O N O F F _ I N               =   7 5 0 
 
 O N O F F _ O U T             =   2 9 5 
 
 
 
 V O L U M E _ I N _ U P       =   6 9 7 
 
 V O L U M E _ O U T           =   7 5 4 
 
 V O L U M E _ I N _ D W       =   7 9 4 
 
 
 
 M E M O R Y _ I N             =   3 0 0 
 
 M E M O R Y _ O U T           =   6 0 4 
 
 H E A R S E T _ I N           =   8 6 5 
 
 H E A R S E T _ O U T         =   5 6 5 
 
 P E N _ D O W N               =   5 6 0 
 
 P E N _ U P                   =   1 8 9 
 
 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   S T E P P E R   S L O T S 
 
 S l o t _ M o t o r A                 =     1 	 	 	 ' 1 _ T a b T e s t e r X Y   p i n     1   S T E P P E R 
 
 S l o t _ M o t o r B                 =     3 	 	 	 ' 1 _ T a b T e s t e r X Y   p i n     3   S T E P P E R 
 
 S l o t _ S e n s o r X               =     7 	 	 	 ' 1 _ T a b T e s t e r X Y   p i n     7   D I G   I N P U 
 
 S l o t _ S e n s o r Y               =     8 	 	 	 ' 1 _ T a b T e s t e r X Y   p i n     8   D I G   I N P U 
 
 S l o t _ E n a b l e M o t o r s     =   1 0 	 	 	 ' 1 _ T a b T e s t e r X Y   p i n   1 0   D I G   O U T 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   D I G I T A L   M O T O R   S L O T S 
 
 S L O T _ U S B 3                     =   1 3   	 	 ' 2 _ T a b T e s t e r M o t   p i n   1   P W M 1 6 
 
 S L O T _ U S B C                     =   1 4                   ' 2 _ T a b T e s t e r M o t   p i n   2   P W M 1 6 
 
 S L O T _ H D M I                     =   1 5 	 	 	 ' 2 _ T a b T e s t e r M o t   p i n   3   P W M 1 6 
 
 S L O T _ U S B P W R                 =   1 6 	 	 	 ' 2 _ T a b T e s t e r M o t   p i n   4   P W M 1 6 
 
 S L O T _ O N O F F                   =   1 7 	 	 	 ' 2 _ T a b T e s t e r M o t   p i n   5   P W M 1 6 
 
 S L O T _ P O W E R   	 	       =   1 8 	 	 	 ' 2 _ T a b T e s t e r M o t   p i n   6   s o f t w a r e   c o n t r o l   S E R V O 1 6 
 
 S L O T _ V O L U M E                 =   2 5 	 	 	 ' 3 _ T a b T e s t e r M o t   p i n   1   P W M 1 6 
 
 S L O T _ M E M O R Y                 =   2 6 	 	 	 ' 3 _ T a b T e s t e r M o t   p i n   2   P W M 1 6 
 
 S L O T _ H E A R S E T               =   2 7 	 	 	 ' 3 _ T a b T e s t e r M o t   p i n   3   P W M 1 6 
 
 S L O T _ P E N                       =   2 9 	 	 	 ' 3 _ T a b T e s t e r M o t   p i n   4   P W M 1 6 
 
 S L O T _ R O T A T 	               =   2 8 	 	 	 ' 3 _ T a b T e s t e r M o t   p i n   5   P W M 1 6 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   T A B L E T   P O W E R 
 
 S L O T _ T a b l e t P o w e r       =     9                   '   1 0 0 0   =   T a b l e t   o n 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   R O T A T I O N   H / V 
 
 S l o t _ R o t H V _ D r i v e             =   2 8             ' 3 0 	 	 '   s l o t 
 
 S l o t _ R o t H V _ C u r r e n t         =   6 0             ' 3 1 	 	 '   s l o t 
 
 S l o t _ R o t H V _ M a x C u r r e n t   =   6 0 0 0         ' P e r i o d   f o r   t h e   m a x   c u r r e n t 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   S L O T S   F O R   S O U N D   T E S T S 
 
 S l o t _ R u n S c o p e                     =   3 7 
 
 S l o t _ S o u n d L e v e l                 =   4 1 
 
 S l o t _ S o u n d L e v e l 2 n d H a r m   =   4 3 
 
 S l o t _ S o u n d L e v e l 3 r d H a r m   =   4 5 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   J O G   W I T H   M O U S E 
 
 J o g _ R a n g e X                 =   2 5 6                 ' 2 8 8 
 
 J o g _ R a n g e Y                 =   1 4 4 
 
 J o g _ E n a b l e _ S l o t       =   3 4 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   C O L O R   R E C O G N I T I O N 
 
 S l o t _ S 0       =     2 4 
 
 S l o t _ S 1       =     2 3 
 
 S l o t _ S 2       =     2 1 
 
 S l o t _ S 3       =     2 0 
 
 S l o t _ F r e q   =     2 2 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   F I L E   S E T   U P 
 
 '   V a r i a b l e   S t r i n g   F i l e N a m e 
 
 '   F i l e N a m e   =   " T e s t _ R e s u l t s . t x t " 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   L O A D   A P P S 
 
 L o a d   T h e r e m i n o _ H A L \ T h e r e m i n o _ H A L . e x e 
 
 L o a d   T h e r e m i n o _ H A L \ T h e r e m i n o _ S l o t V i e w e r . e x e 
 
 
 
 ' L o a d   T h e r e m i n o _ M i c r o V i d e o \ T h e r e m i n o _ M i c r o V i d e o . e x e 
 
 ' L o a d   T h e r e m i n o _ A u d i o G e n e r a t o r \ T h e r e m i n o _ A u d i o G e n e r a t o r . e x e 
 
 ' L o a d   T h e r e m i n o _ A u d i o I n p u t \ T h e r e m i n o _ A u d i o I n p u t . e x e 
 
 ' L o a d   T h e r e m i n o _ H A L \ T h e r e m i n o _ S i g n a l S c o p e . e x e 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   K E Y S 
 
 K e y   R i g h t 	 	 G o s u b   E x e c K e y s 
 
 K e y   L e f t   	 	 G o s u b   E x e c K e y s 
 
 K e y   U p   	 	 	 G o s u b   E x e c K e y s 
 
 K e y   D o w n   	 	 G o s u b   E x e c K e y s 
 
 K e y   P a g e u p 	 	 G o s u b   P E N   U P 
 
 K e y   P a g e d o w n 	 G o s u b   P E N   D O W N 
 
 K e y   E n d           	 G o s u b   P E N   S I N G L E 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   S T A R T 
 
 L o a d   T o c . w a v 
 
 O p t i o n   S p e e d   9 
 
 
 
 S l o t   S l o t _ S 0   =   1 0 0 0 
 
 S l o t   S l o t _ S 1   =   1 0 0 0 
 
 
 
 ' W i n d o w   M i n S i z e 
 
 
 
 D e s t X   =   v 1 
 
 D e s t Y   =   v 2 
 
 
 
 G o s u b     V O L U M E   O U T 
 
 G o s u b     P E N   U P 
 
 G o s u b     M A I N   M E N U 
 
 
 
 S t o p 	 	 	 	 	 	 	 	 	 	 	 	 ' 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 V a r i a b l e   N u m e r i c   D e s t x M a x 
 
 V a r i a b l e   N u m e r i c   D e s t x M i n 
 
 V a r i a b l e   N u m e r i c   D e s t y M a x 
 
 V a r i a b l e   N u m e r i c   q q q 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 L a b e l     C L E A R   B U T T O N S 
 
 	 F o r   v 1   =   1   T o   3 2 
 
 	 	 B u t t o n   v 1   T e x t   " " 
 
 	 	 B u t t o n   v 1   C o l o r   M o c c a s i n 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 L a b e l     C L O S E   A L L 
 
 	 L o a d   C l o s e A p p s 
 
 R e t u r n 
 
 
 
 L a b e l   E v e n t S t o p 
 
 	 W i n d o w   S i z a b l e 
 
 E n d 
 
 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 '       M E N U 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 L a b e l     M A I N   M E N U 
 
 	 G o s u b     C L E A R   B U T T O N S 
 
 	 B u t t o n   1   L a b e l     D I S P L A Y 
 
 	 B u t t o n   1   C o l o r   S k y B l u e 
 
 	 B u t t o n   2   L a b e l     T O U C H 
 
 	 B u t t o n   2   C o l o r   L i g h t S t e e l B l u e 
 
 	 B u t t o n   3   L a b e l     A U D I O 
 
 	 B u t t o n   3   C o l o r   L i g h t G r e e n 
 
 	 
 
 	 B u t t o n   4   L a b e l     P L U G 
 
 	 B u t t o n   4   C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   5   L a b e l     W i - F i 
 
 	 B u t t o n   5   C o l o r   H o t P i n k 
 
 	 B u t t o n   6   L a b e l     B L U E T O O T H 
 
 	 B u t t o n   6   C o l o r   R o y a l B l u e 
 
 	 B u t t o n   7   L a b e l     P O W E R 
 
 	 B u t t o n   7   C o l o r   C h o c o l a t e 
 
 	 B u t t o n   8   L a b e l     V I R T U A L   K e y 
 
 	 B u t t o n   8   C o l o r   S l a t e G r a y 
 
 	 B u t t o n   9   L a b e l     M E C H A N I C A L 
 
 	 B u t t o n   9   C o l o r   G a i n s b o r o 
 
 	 B u t t o n   1 0   L a b e l     M I S C E L L A N E A 
 
 	 B u t t o n   1 0   C o l o r   D a r k C y a n 
 
 	 
 
 	 B u t t o n   1 5   L a b e l     C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l   D I S P L A Y 
 
 	 G o s u b     C L E A R   B U T T O N S 
 
 	 B u t t o n   1     L a b e l     L U M I N O S I T Y 
 
 	 B u t t o n   1     C o l o r   S k y B l u e 
 
 	 B u t t o n   2     L a b e l     R E D 
 
 	 B u t t o n   2     C o l o r   R e d 
 
 	 B u t t o n   3     L a b e l     G R E E N 
 
 	 B u t t o n   3     C o l o r   G r e e n 
 
 	 B u t t o n   4     L a b e l     B L U 
 
 	 B u t t o n   4     C o l o r   B l u e 
 
 	 B u t t o n   5     L a b e l     W H I T E 
 
 	 B u t t o n   5     C o l o r   W h i t e 
 
 	 B u t t o n   6     L a b e l     B I T M A P 
 
 	 B u t t o n   6     C o l o r   S k y B l u e 
 
 	 B u t t o n   7     L a b e l     P H O T O 
 
 	 B u t t o n   7     C o l o r   S k y B l u e 
 
 	 B u t t o n   8     L a b e l     V I D E O 
 
 	 B u t t o n   8     C o l o r   S k y B l u e 
 
 	 B u t t o n   9     L a b e l     N O   C o l o r 
 
 	 B u t t o n   9     C o l o r   S k y B l u e 
 
 	 B u t t o n   1 0   L a b e l     C o l o r   T E S T 
 
 	 B u t t o n   1 0   C o l o r   S k y B l u e 
 
 	 ' B u t t o n   1 1   T e x t     - - - - - - - - 
 
 	 ' B u t t o n   1 1   C o l o r   S k y B l u e 
 
 	 B u t t o n   1 2   L a b e l     T O U C H   T E S T 
 
 	 B u t t o n   1 2   C o l o r   S k y B l u e 
 
 	 B u t t o n   1 3   L a b e l     C o l o r   R E C O G N I T I O N 
 
 	 B u t t o n   1 3   C o l o r   S k y B l u e 
 
 	 
 
 	 B u t t o n   1 4   L a b e l     M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   L a b e l     C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l     T O U C H 
 
 	 G o s u b     C L E A R   B U T T O N S 
 
 	 B u t t o n   1   L a b e l     P E N   U P 
 
 	 B u t t o n   1   C o l o r   L i g h t S t e e l B l u e 
 
 	 B u t t o n   2   L a b e l     P E N   D O W N 
 
 	 B u t t o n   2   C o l o r   L i g h t S t e e l B l u e 
 
 	 B u t t o n   3   L a b e l     P E N   S I N G L E 
 
 	 B u t t o n   3   C o l o r   L i g h t S t e e l B l u e 
 
 	 B u t t o n   4   L a b e l     P E N   D O U B L E 
 
 	 B u t t o n   4   C o l o r   L i g h t S t e e l B l u e 
 
 	 B u t t o n   5   L a b e l     S L I D E 
 
 	 B u t t o n   5   C o l o r   L i g h t S t e e l B l u e 
 
 	 B u t t o n   6   L a b e l     S L I D E   P S W 
 
 	 B u t t o n   6   C o l o r   L i g h t S t e e l B l u e 
 
 	 B u t t o n   7   L a b e l     T O U C H   T E S T 
 
 	 B u t t o n   7   C o l o r   L i g h t S t e e l B l u e 
 
 	 B u t t o n   8   L a b e l     J O G   w i t h   M o u s e 
 
 	 B u t t o n   8   C o l o r   L i g h t S t e e l B l u e 
 
 	 B u t t o n   1 0   L a b e l     S t a r t   W X M   A p p T a b l e t 
 
 	 B u t t o n   1 0   C o l o r   L i g h t S t e e l B l u e 
 
 	 
 
 	 B u t t o n   1 4   L a b e l     M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   L a b e l     C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l     A U D I O 
 
 	 G o s u b     C L E A R   B U T T O N S 
 
 	 B u t t o n   1   L a b e l     H E A R S E T   I N 
 
 	 B u t t o n   1   C o l o r   L i g h t G r e e n 
 
 	 B u t t o n   2   L a b e l     H E A R S E T   O U T 
 
 	 B u t t o n   2   C o l o r   L i g h t G r e e n 
 
 	 B u t t o n   3   L a b e l     V O L U M E   O U T 
 
 	 B u t t o n   3   C o l o r   L i g h t G r e e n 
 
 	 B u t t o n   4   L a b e l     V O L U M E   U P 
 
 	 B u t t o n   4   C o l o r   L i g h t G r e e n 
 
 	 B u t t o n   5   L a b e l     V O L U M E   D W 
 
 	 B u t t o n   5   C o l o r   L i g h t G r e e n 
 
 	 B u t t o n   6   L a b e l     V O L U M E   T E S T 
 
 	 B u t t o n   6   C o l o r   L i g h t G r e e n 
 
 	 B u t t o n   7   L a b e l     S P E A K . D I S T . 
 
 	 B u t t o n   7   C o l o r   L i g h t G r e e n 
 
 	 B u t t o n   8   L a b e l     T e s t H e a r s e t 
 
 	 B u t t o n   8   C o l o r   L i g h t G r e e n 
 
 	 
 
 	 B u t t o n   1 4   L a b e l     M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   L a b e l     C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l     P L U G 
 
 	 G o s u b     C L E A R   B U T T O N S 
 
 	 B u t t o n   1   L a b e l     P O W E R   I N 
 
 	 B u t t o n   1   C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   2   L a b e l     P O W E R   O U T 
 
 	 B u t t o n   2   C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   3     L a b e l     M E M O R Y   I N 
 
 	 B u t t o n   3     C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   4     L a b e l     M E M O R Y   O U T 
 
 	 B u t t o n   4     C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   5     L a b e l     U S B 3   I N 
 
 	 B u t t o n   5     C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   6     L a b e l     U S B 3   O U T 
 
 	 B u t t o n   6     C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   7     L a b e l     U S B C   I N 
 
 	 B u t t o n   7     C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   8     L a b e l     U S B C   O U T 
 
 	 B u t t o n   8     C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   9     L a b e l     H D M I   I N 
 
 	 B u t t o n   9     C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   1 0     L a b e l     H D M I   O U T 
 
 	 B u t t o n   1 0     C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   1 1     L a b e l     H E A R S E T   I N 
 
 	 B u t t o n   1 1     C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   1 2     L a b e l     H E A R S E T   O U T 
 
 	 B u t t o n   1 2   C o l o r   M e d i u m A q u a m a r i n e 
 
 	 
 
 	 B u t t o n   1 4   L a b e l     M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   L a b e l     C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l     W i - F i 
 
 	 G o s u b     C L E A R   B U T T O N S 
 
 	 B u t t o n   1   L a b e l     E M P T Y   1 
 
 	 B u t t o n   1   C o l o r   H o t P i n k 
 
 	 B u t t o n   2   L a b e l     E M P T Y   2 
 
 	 B u t t o n   2   C o l o r   H o t P i n k 
 
 	 B u t t o n   3   L a b e l     E M P T Y   3 
 
 	 B u t t o n   3   C o l o r   H o t P i n k 
 
 	 
 
 	 B u t t o n   1 4   L a b e l     M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   L a b e l     C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l     B L U E T O O T H 
 
 	 G o s u b     C L E A R   B U T T O N S 
 
 	 B u t t o n   1   L a b e l     E M P T Y   1 
 
 	 B u t t o n   1   C o l o r   R o y a l B l u e 
 
 	 B u t t o n   2   L a b e l     E M P T Y   2 
 
 	 B u t t o n   2   C o l o r   R o y a l B l u e 
 
 	 B u t t o n   3   L a b e l     E M P T Y   3 
 
 	 B u t t o n   3   C o l o r   R o y a l B l u e 
 
 	 
 
 	 B u t t o n   1 4   L a b e l     M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   L a b e l     C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l     P O W E R 
 
 	 G o s u b     C L E A R   B U T T O N S 
 
 	 B u t t o n   1   L a b e l     P O W E R   I N 
 
 	 B u t t o n   1   C o l o r   C h o c o l a t e 
 
 	 B u t t o n   2   L a b e l     P O W E R   O U T 
 
 	 B u t t o n   2   C o l o r   C h o c o l a t e 
 
 	 B u t t o n   4   L a b e l     P O W E R   O N 
 
 	 B u t t o n   4   C o l o r   Y e l l o w 6 
 
 	 B u t t o n   5   L a b e l     P O W E R   O F F 
 
 	 B u t t o n   5   C o l o r   Y e l l o w 6 
 
 	 
 
 	 B u t t o n   1 4   L a b e l     M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   L a b e l     C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l     V I R T U A L   K E Y 
 
 	 G o s u b     C L E A R   B U T T O N S 
 
 	 B u t t o n   1   L a b e l     N U M B E R 
 
 	 B u t t o n   1   C o l o r   S l a t e G r a y 
 
 	 B u t t o n   2   L a b e l     A L P H A B E T 
 
 	 B u t t o n   2   C o l o r   S l a t e G r a y 
 
 	 B u t t o n   3   L a b e l      $ % *   & [ @ ) ^ ! 
 
 	 B u t t o n   3   C o l o r   S l a t e G r a y 
 
 	 B u t t o n   5   L a b e l     P S   S E Q U E N C E S 
 
 	 B u t t o n   5   C o l o r   S l a t e G r a y 
 
 	 B u t t o n   6   L a b e l     G e t - S e r v i c e 
 
 	 B u t t o n   6   C o l o r   S l a t e G r a y 
 
 	 B u t t o n   7   L a b e l     W i n 1 0   u p d a t e   h i s t o r y 
 
 	 B u t t o n   7   C o l o r   S l a t e G r a y 
 
 	 B u t t o n   8   L a b e l     G e t S y s t e m I n f o 
 
 	 B u t t o n   8   C o l o r   S l a t e G r a y 
 
 	 
 
 	 B u t t o n   1 4   L a b e l     M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   L a b e l     C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 
 
 L a b e l     M E C H A N I C A L 
 
 	 G o s u b     C L E A R   B U T T O N S 
 
 	 B u t t o n   1   L a b e l     Z E R O 
 
 	 B u t t o n   1   C o l o r   G a i n s b o r o 
 
 	 B u t t o n   2   L a b e l     E N A B . M O T O R S 
 
 	 B u t t o n   2   C o l o r   G a i n s b o r o 
 
 	 B u t t o n   3   L a b e l     D I S A B . M O T O R S 
 
 	 B u t t o n   3   C o l o r   G a i n s b o r o 
 
 	 B u t t o n   4   L a b e l     R O T A T E   V E R T 
 
 	 B u t t o n   4   C o l o r   G a i n s b o r o 
 
 	 B u t t o n   5   L a b e l     R O T A T E   H O R Z 
 
 	 B u t t o n   5   C o l o r   G a i n s b o r o 
 
 	 B u t t o n   6   L a b e l     R O T A T E   M I D L 
 
 	 B u t t o n   6   C o l o r   G a i n s b o r o 
 
 	 B u t t o n   7   L a b e l     B u t t o n   F A S T 
 
 	 B u t t o n   7   C o l o r   G a i n s b o r o 
 
 	 
 
 	 B u t t o n   9   L a b e l     B U R N   I N   7 - 2 4 
 
 	 B u t t o n   9   C o l o r   G a i n s b o r o 
 
 	 
 
 	 B u t t o n   1 4   L a b e l     M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   L a b e l     C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l     M I S C E L L A N E A 
 
 	 G o s u b     C L E A R   B U T T O N S 
 
 	 B u t t o n   1   L a b e l     S T A N D   B Y 
 
 	 B u t t o n   1   C o l o r   D a r k C y a n 
 
 	 B u t t o n   2   L a b e l     S A F E   R E M O V E 
 
 	 B u t t o n   2   C o l o r   D a r k C y a n 
 
 	 B u t t o n   3   L a b e l     A L L   I N 
 
 	 B u t t o n   3   C o l o r   D a r k C y a n 
 
 	 B u t t o n   4   L a b e l     A L L   O U T 
 
 	 B u t t o n   4   C o l o r   D a r k C y a n 
 
 	 B u t t o n   5   L a b e l     V   K E Y B O A R D 
 
 	 B u t t o n   5   C o l o r   D a r k C y a n 
 
 	 B u t t o n   6   L a b e l     J O G   w i t h   M o u s e 
 
 	 B u t t o n   6   C o l o r   D a r k C y a n 
 
 	 B u t t o n   7   L a b e l     C A L I B R A T E 
 
 	 B u t t o n   7   C o l o r   D a r k C y a n 
 
 	 B u t t o n   8   L a b e l     U S B P W R   I N 
 
 	 B u t t o n   8   C o l o r   D a r k C y a n 
 
 	 B u t t o n   9   L a b e l     U S B P W R   O U T 
 
 	 B u t t o n   9   C o l o r   D a r k C y a n 
 
 	 
 
 	 B u t t o n   1 1   L a b e l     G e t S y s t e m I n f o 
 
 	 B u t t o n   1 1   C o l o r   D a r k C y a n 
 
 	 
 
 	 B u t t o n   1 4   L a b e l     M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   L a b e l     C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l     N U M B E R 
 
 	 P r e s s K e y s   A L T   T a b 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 s 1   =     " S P A C E " 
 
 	 P r e s s K e y s   s 1 
 
 	 P r e s s K e y s   1   2   3   4   5   6   7   8   9   0   E n t e r 
 
 R e t u r n 
 
 
 
 L a b e l     A L P H A B E T 
 
 	 P r e s s K e y s   A L T   T a b 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 P r e s s K e y s   A   B   C   D   E   F   G   H   I   J   K   L   M   N   O   P   Q   R   S   T   U   V   W   X   Y   Z   E n t e r 
 
 	 P r e s s K e y s   B   C   C     E n t e r 
 
 R e t u r n 
 
 
 
 L a b e l      $ % *   & [ @ ) ^ ! 
 
 	 ' P r e s s K e y   S p a c e 
 
 	 P r e s s K e y s   W I N D O W S   X 
 
 	 W a i t   S e c o n d s   2 
 
 R e t u r n 
 
 
 
 L a b e l     P S   S E Q U E N C E S 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ D i r . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 L a b e l     G e t - S e r v i c e 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ G e t - S e r v i c e . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 L a b e l     W i n 1 0   u p d a t e   h i s t o r y 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ W i n 1 0 - u p d a t e - h i s t o r y . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 L a b e l     G e t S y s t e m I n f o 
 
 	 C O M   D i s c a r d O u t B u f f e r 
 
 	 C O M   W r i t e S t r i n g   " S e n d S y s t e m I n f o "   +   C R L F 
 
 	 F i l e N a m e   =   " i n f o . c s v " 
 
 	 G o s u b   R e c e i v e F i l e F r o m C O M 
 
 R e t u r n 
 
 
 
 
 
 L a b e l     L U M I N O S I T Y 
 
 	 B u t t o n   1   C o l o r   F l a s h i n g 8   B l a c k   G r a y 5 
 
 	 B e e p 
 
 	 W a i t   K e y ( " S p a c e " ) 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ L u m i n o s i t y B i g P e n . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 	 B u t t o n   1   C o l o r   S k y B l u e 
 
 R e t u r n 
 
 
 
 L a b e l     V   K E Y B O A R D 
 
 	 B e e p 
 
 	 W a i t   K e y ( " S p a c e " ) 
 
 	 B u t t o n   2 9   C o l o r   F l a s h i n g 8   B l u e 9     C y a n 9 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ V i r t u a l K e y b o a r d . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 	 W a i t   S e c o n d s   2 
 
 	 B u t t o n   2 9   C o l o r   M e d i u m B l u e 
 
 R e t u r n 
 
 
 
 L a b e l     R E D 
 
 	 C O M   W r i t e S t r i n g       " R E D "   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l     G R E E N 
 
 	 C O M   W r i t e S t r i n g     " G R E E N "   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l     B L U 
 
 	 C O M   W r i t e S t r i n g   " B L U "   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l     W H I T E 
 
 	 C O M   W r i t e S t r i n g     " W H I T E "   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l     N O   C O L O R 
 
 	 C O M   W r i t e S t r i n g   " N O   C O L O R "   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l     B I T M A P 
 
 	 C O M   W r i t e S t r i n g   " B I T M A P "   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l     P H O T O 
 
 	 C O M   W r i t e S t r i n g   " P H O T O "   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l     V I D E O 
 
 	 C O M   W r i t e S t r i n g   " V I D E O "   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l     S T A N D   B Y 
 
 	 G o s u b     Z E R O 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ S a f e R e m o v e . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 	 G o s u b     P O W E R   I N 
 
 	 G o s u b     U S B 3   I N 
 
 	 G o s u b     M E M O R Y   I N 
 
 	 G o s u b     U S B C   O U T 
 
 	 G o s u b     H D M I   O U T 
 
 	 G o s u b     U S B P W R   O U T 
 
 	 G o s u b     H E A R S E T   O U T 
 
 	 G o s u b     O N O F F   O U T 
 
 	 G o s u b     V O L U M E   O U T 
 
 	 G o s u b     D I S A B . M O T O R S 
 
 R e t u r n 
 
 
 
 L a b e l     A L L   I N 
 
 	 G o s u b     P O W E R   I N 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     U S B 3   I N 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     U S B C   I N 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     H D M I   I N 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     U S B P W R   I N 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     H E A R S E T   I N 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     M E M O R Y   I N 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 ' G o s u b     O N O F F   I N 
 
 	 ' G o s u b     V O L U M E   I N _ U P 
 
 	 ' W a i t   S e c o n d s   0 . 5 
 
 	 G o s u b     V O L U M E   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 R e t u r n 
 
 
 
 L a b e l     A L L   O U T 
 
 	 G o s u b     P O W E R   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     U S B 3   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     U S B C   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     H D M I   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     U S B P W R   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     H E A R S E T   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     M E M O R Y   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     O N O F F   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 ' G o s u b     V O L U M E   I N _ D W 
 
 	 ' W a i t   S e c o n d s   0 . 5 
 
 	 G o s u b     V O L U M E   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 R e t u r n 
 
 
 
 L a b e l   M U L T I 
 
 	 v 2   =   I n p u t   "   H o w   m a n y   l o o p s ?   " 
 
 	 I f   v 2   =   0 
 
 	 	 v 2   =   1 0 
 
 	 E n d I f 
 
 	 F o r   v 1   =   1   T o   v 2 
 
 	 	 s 1   =   N o w 
 
 	 	 s 1   =   s 1   +   "           C y c l e   i n   p r o g r e s s   =   "   +   v 1 
 
 	 	 s 1   =   s 1   +   "           C y c l e   t o   d o   =   "   +   v 2 
 
 	 	 P r i n t   s 1 
 
 	 	 ' G o s u b   R U N   T E S T 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 L a b e l     S A F E   R E M O V E 
 
 	 G o s u b     Z E R O 
 
 	 G o s u b     P O W E R   O U T 
 
 	 G o s u b     U S B 3   O U T 
 
 	 G o s u b     U S B C   O U T 
 
 	 G o s u b     H D M I   O U T 
 
 	 G o s u b     U S B P W R   O U T 
 
 	 G o s u b     H E A R S E T   O U T 
 
 	 G o s u b     O N O F F   O U T 
 
 	 G o s u b     V O L U M E   O U T 
 
 	 G o s u b     M E M O R Y   O U T 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ S a f e R e m o v e . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 L a b e l     B U T T O N   F A S T 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ B u t t o n F a s t . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 L a b e l     B U R N   I N   7 - 2 4 
 
 	 F o r   v 9   =   1   T o   1 0 0 0 0 
 
 	 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ B u r n I n 7 - 2 4 . s e q " 
 
 	 	 G o s u b   E x e c S e q u e n c e 
 
 	 	 P r i n t   " C y c l e   n u m b e r : "   +   v 9 
 
 ' 	 	 W a i t   S e c o n d s   1 . 5 
 
 	 	 S l o t ( 1 0 0 )   =   S l o t ( 1 0 0 )   +   1 
 
 	 	 B e e p 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 L a b e l     C A L I B R A T E 
 
 	 ' B e e p 
 
 	 ' W a i t   K e y ( " S p a c e " ) 
 
 	 G o s u b     Z E R O 
 
 	 ' S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ C a l i b r a t e . s e q " 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ S p e e d T e s t . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '       A U D I O   T E S T S 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   S l o t _ R u n S c o p e 
 
 V a r i a b l e   N u m e r i c   S l o t _ S o u n d L e v e l 
 
 V a r i a b l e   N u m e r i c   S l o t _ S o u n d L e v e l 2 n d H a r m 
 
 V a r i a b l e   N u m e r i c   S l o t _ S o u n d L e v e l 3 r d H a r m 
 
 V a r i a b l e   N u m e r i c   S o u n d L e v e l M i n 
 
 V a r i a b l e   N u m e r i c   S o u n d N o i s e M a x 
 
 V a r i a b l e   N u m e r i c   S o u n d D i s t 2 n d H a r m M a x   '   M a x   l e v e l   f o r   t h e   2 n d   h a r m o n i c s 
 
 V a r i a b l e   N u m e r i c   S o u n d D i s t 3 r d H a r m M a x   '   M a x   l e v e l   f o r   t h e   3 r d   h a r m o n i c s 
 
 
 
 L a b e l   S P E A K . D I S T . 
 
 	 W i n d o w   M i n S i z e 
 
 	 W a i t   K e y ( " S p a c e " ) 
 
 	 B u t t o n   2 5   C o l o r   F l a s h i n g 8   G o l d   D a r k G r e e n 
 
 	 S o u n d L e v e l M i n   =   6 5 0 
 
 	 S o u n d N o i s e M a x   =   3 5 0 
 
 	 S o u n d D i s t 2 n d H a r m M a x   =   4 0 0 
 
 	 S o u n d D i s t 3 r d H a r m M a x   =   4 0 0 
 
 	 G o s u b   A u d i o T e s t 
 
 	 W i n d o w   S i z a b l e 
 
 	 B u t t o n   2 5   C o l o r   L i g h t S t e e l B l u e 
 
 	 ' G o s u b   E v e n t S t o p 
 
 R e t u r n 
 
 
 
 L a b e l     T e s t H e a r s e t 
 
 	 W i n d o w   M i n S i z e 
 
 	 B u t t o n   2 6   C o l o r   F l a s h i n g 8   G o l d   D a r k G r e e n 
 
 	 S o u n d L e v e l M i n   =   5 0 
 
 	 S o u n d N o i s e M a x   =   3 0 
 
 	 G o s u b   A u d i o T e s t 
 
 	 W i n d o w   S i z a b l e 
 
 	 B u t t o n   2 6   C o l o r   L i g h t S t e e l B l u e 
 
 	 G o s u b   E v e n t S t o p 
 
 R e t u r n 
 
 
 
 L a b e l   A u d i o T e s t 
 
 	 ' G o s u b   " Z E R O " 
 
 	 S l o t   3 9   =   1 0 0 0                             ' < < < < < < < < < < < < < <   m a n u a l   s o u n d   s t a r t 
 
         ' B e e p 
 
 	 ' w a i t   S e c o n d s   2 
 
 	 ' W a i t   K e y ( " S p a c e " ) 
 
 	 s 1   =   " " 
 
 	 ' - - - - - - - - - - - - - - - - - - - - - -   t e s t   a u d i o   l e f t 
 
 	 D e s t X   =   0 1 4 
 
 	 D e s t Y   =   1 0 8 . 8 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 G o s u b     P E N   S I N G L E 
 
 	 W a i t   S e c o n d s   0 . 8 
 
 	 S l o t   S l o t _ R u n S c o p e   =   1 0 0 0 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l ) 
 
 	 I f   v 1   <   S o u n d L e v e l M i n 
 
 	 	 s 1   =   s 1   +   " E R R O R :   L e f t   l e v e l   t o o   l o w "   +   C R L F 
 
 	 E n d I f 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l 2 n d H a r m ) 
 
 	 I f   v 1   >   S o u n d D i s t 2 n d H a r m M a x 
 
 	 	 s 1   =   s 1   +   " E R R O R :   L e f t   s p e a k e r .   T o o   m u c h   d i s t o r t i o n   o n   t h e   2 n d   h a r m o n i c s "   +   C R L F 
 
 	 E n d I f 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l 3 r d H a r m ) 
 
 	 I f   v 1   >   S o u n d D i s t 3 r d H a r m M a x 
 
 	 	 s 1   =   s 1   +   " E R R O R :   L e f t   s p e a k e r .   T o o   m u c h   d i s t o r t i o n   o n   t h e   3 r d   h a r m o n i c s "   +   C R L F 
 
 	 E n d I f 
 
 	 S l o t   S l o t _ R u n S c o p e   =   0 
 
 	 
 
 	 ' - - - - - - - - - - - - - - - - - - - - - -   t e s t   a u d i o   r i g h t 
 
 	 D e s t X   =   0 1 4 
 
 	 D e s t Y   =   1 0 2 . 5 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 G o s u b     P E N   S I N G L E 
 
 	 W a i t   S e c o n d s   0 . 8 
 
 	 S l o t   S l o t _ R u n S c o p e   =   1 0 0 0 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l ) 
 
 	 I f   v 1   <   S o u n d L e v e l M i n 
 
 	 	 s 1   =   s 1   +   " E R R O R :   R i g h t   l e v e l   t o o   l o w "   +   C R L F 
 
 	 E n d I f 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l 2 n d H a r m ) 
 
 	 I f   v 1   >   S o u n d D i s t 2 n d H a r m M a x 
 
 	 	 s 1   =   s 1   +   " E R R O R :   R i g h t   s p e a k e r .   T o o   m u c h   d i s t o r t i o n   o n   t h e   2 n d   h a r m o n i c s "   +   C R L F 
 
 	 E n d I f 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l 3 r d H a r m ) 
 
 	 I f   v 1   >   S o u n d D i s t 3 r d H a r m M a x 
 
 	 	 s 1   =   s 1   +   " E R R O R :   R i g h t   s p e a k e r .   T o o   m u c h   d i s t o r t i o n   o n   t h e   3 r d   h a r m o n i c s "   +   C R L F 
 
 	 E n d I f 
 
 	 S l o t   S l o t _ R u n S c o p e   =   0 
 
 	 
 
 	 S l o t   3 9   =   0                                   ' < < < < < < < < < < < < < <   m a n u a l   s o u n d   s t o p 
 
 	 
 
 	 ' - - - - - - - - - - - - - - - - - - - - - -   t e s t   a u d i o   n o   s o u n d   l e f t / r i g h t 
 
 	 D e s t X   =   0 1 4 
 
 	 D e s t Y   =   0 9 6 . 2 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 G o s u b     P E N   S I N G L E 
 
 	 W a i t   S e c o n d s   0 . 8 
 
 	 S l o t   S l o t _ R u n S c o p e   =   1 0 0 0 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l ) 
 
 	 I f   v 1   >   S o u n d N o i s e M a x 
 
 	 	 s 1   =   s 1   +   " E R R O R :   T o o   m u c h   n o i s e "   +   C R L F 
 
 	 E n d I f 
 
 	 S l o t   S l o t _ R u n S c o p e   =   0 
 
 	 
 
 	 I f   s 1   =   " " 
 
 	 	 s 1   =   " T E S T   P A S S E D   O K " 
 
 	 E n d I f 
 
 	 P r i n t   s 1 
 
 R e t u r n 
 
 
 
 L a b e l     V O L U M E   T E S T 
 
 	 ' G o s u b   " Z E R O " 
 
 	 W i n d o w   M i n S i z e 
 
 	 B u t t o n   2 4   C o l o r   F l a s h i n g 8   L i g h t S t e e l B l u e   D a r k G r e e n 
 
 	 S o u n d L e v e l M i n   =   6 5 0 
 
 	 S o u n d N o i s e M a x   =   3 5 0 
 
 	 G o s u b   V o l u m e T e s t 
 
 	 W i n d o w   S i z a b l e 
 
 	 B u t t o n   2 4   C o l o r   L i g h t S t e e l B l u e 
 
 	 ' S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ S a f e R e m o v e . s e q " 
 
 	 ' G o s u b   E x e c S e q u e n c e 
 
 	 G o s u b     S T A N D   B Y 
 
 	 G o s u b   E v e n t S t o p 
 
 R e t u r n 
 
 
 
 L a b e l   V o l u m e T e s t 
 
 	 ' B e e p 
 
 	 ' w a i t   S e c o n d s   2 
 
 	 ' W a i t   K e y ( " S p a c e " ) 
 
 	 s 1   =   " " 
 
 	 ' - - - - - - - - - - - - - - - - - - - - - -   t e s t   a u d i o   v o l u m e   l e v e l   h i g h 
 
 	 G o s u b     V O L U M E   U P 
 
 	 W a i t   S e c o n d s   4 
 
 	 G o s u b     V O L U M E   O U T 
 
 	 S l o t   3 9   =   1 0 0 0                             ' < < < < < < < < < < < < < <   m a n u a l   s o u n d   s t a r t 
 
 	 W a i t   S e c o n d s   0 . 8 
 
 	 S l o t   S l o t _ R u n S c o p e   =   1 0 0 0 
 
 	 W a i t   S e c o n d s   0 . 2 3 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l ) 
 
 	 I f   v 1   <   S o u n d L e v e l M i n 
 
 	 	 s 1   =   s 1   +   " E R R O R :   L e f t   l e v e l   t o o   l o w "   +   C R L F 
 
 	 E n d I f 
 
 	 S l o t   S l o t _ R u n S c o p e   =   0 
 
 	 ' S l o t   3 9   =   0                                   ' < < < < < < < < < < < < < <   m a n u a l   s o u n d   s t o p 
 
 	 
 
 	 ' - - - - - - - - - - - - - - - - - - - - - -   t e s t   a u d i o   n o   s o u n d   l e f t / r i g h t 
 
 	 G o s u b     V O L U M E   D W 
 
 	 W a i t   S e c o n d s   4 
 
 	 G o s u b     V O L U M E   O U T 
 
 	 ' S l o t   3 9   =   1 0 0 0                             ' < < < < < < < < < < < < < <   m a n u a l   s o u n d   s t a r t 
 
 	 W a i t   S e c o n d s   0 . 8 
 
 	 S l o t   S l o t _ R u n S c o p e   =   1 0 0 0 
 
 	 W a i t   S e c o n d s   0 . 2 3 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l ) 
 
 	 I f   v 1   >   S o u n d N o i s e M a x 
 
 	 	 s 1   =   s 1   +   " E R R O R :   T o o   m u c h   n o i s e "   +   C R L F 
 
 	 E n d I f 
 
 	 S l o t   S l o t _ R u n S c o p e   =   0 
 
 	 S l o t   3 9   =   0                                   ' < < < < < < < < < < < < < <   m a n u a l   s o u n d   s t o p 
 
 	 I f   s 1   =   " " 
 
 	 	 s 1   =   " T E S T   P A S S E D   O K " 
 
 	 E n d I f 
 
 	 P r i n t   s 1 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     C O L O R   R E C O G N I T I O N 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   S l o t _ S 0 
 
 V a r i a b l e   N u m e r i c   S l o t _ S 1 
 
 V a r i a b l e   N u m e r i c   S l o t _ S 2 
 
 V a r i a b l e   N u m e r i c   S l o t _ S 3 
 
 V a r i a b l e   N u m e r i c   S l o t _ F r e q 
 
 
 
 L a b e l     C O L O R   T E S T 
 
 	 F i l e H e a d e r T e s t N a m e   =   " C O L O R   T E S T " 
 
 	 G o s u b   W r i t e F i l e H e a d e r 
 
 	 B e e p 
 
 	 W a i t   K e y ( " S p a c e " ) 
 
 	 B u t t o n   1 0   C o l o r   F l a s h i n g 8   R e d   S k y B l u e 
 
 	 
 
 	 G o s u b   R E D 
 
 	 W a i t   S e c o n d s   1 
 
 	 G o s u b     C O L O R   R E C O G N I T I O N 
 
 	 I f   s 1   =   " R E D " 
 
 	 	 s 1   =   " R e d   c o l o r   =   P a s s e d " 
 
 	 E l s e 
 
 	 	 s 1   =   " R e d   c o l o r   =   F a i l " 
 
 	 E n d I f 
 
 	 S a v e   S t r i n g T o F i l e   s 1   F i l e N a m e 
 
 	 
 
 	 G o s u b   G R E E N 
 
 	 W a i t   S e c o n d s   1 
 
 	 G o s u b     C O L O R   R E C O G N I T I O N 
 
 	 I f   s 1   =   " G R E E N " 
 
 	 	 s 1   =   " G r e e n   c o l o r   =   P a s s e d " 
 
 	 E l s e 
 
 	 	 s 1   =   " G r e e n   c o l o r   =   F a i l " 
 
 	 E n d I f 
 
 	 S a v e   S t r i n g T o F i l e   s 1   F i l e N a m e 
 
 	 
 
 	 G o s u b   B L U 
 
 	 W a i t   S e c o n d s   1 
 
 	 G o s u b     C O L O R   R E C O G N I T I O N 
 
 	 I f   s 1   =   " B L U " 
 
 	 	 s 1   =   " B l u   c o l o r   =   P a s s e d " 
 
 	 E l s e 
 
 	 	 s 1   =   " B l u   c o l o r   =   F a i l " 
 
 	 E n d I f 
 
 	 S a v e   S t r i n g T o F i l e   s 1   F i l e N a m e 
 
 	 
 
 	 B u t t o n   1 0   C o l o r   S k y B l u e 
 
 	 
 
 	 G o s u b     N O   C O L O R 
 
 R e t u r n 
 
 
 
 L a b e l     C O L O R   R E C O G N I T I O N 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - -   R E D   f i l t e r 
 
 	 S l o t   S l o t _ S 2   =   0 
 
 	 S l o t   S l o t _ S 3   =   0 
 
 	 W a i t   S e c o n d s   0 . 1 
 
 	 v 1   =   S l o t ( S l o t _ F r e q ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - -   G R E E N   f i l t e r 
 
 	 S l o t   S l o t _ S 2   =   1 0 0 0 
 
 	 S l o t   S l o t _ S 3   =   1 0 0 0 
 
 	 W a i t   S e c o n d s   0 . 1 
 
 	 v 2   =   S l o t ( S l o t _ F r e q ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - -   B L U   f i l t e r 
 
 	 S l o t   S l o t _ S 2   =   0 
 
 	 S l o t   S l o t _ S 3   =   1 0 0 0 
 
 	 W a i t   S e c o n d s   0 . 1 
 
 	 v 3   =   S l o t ( S l o t _ F r e q ) 
 
 	 ' '   - - - - - - - - - - - - - - - - - - - - - - - - -   C L E A R   f i l t e r 
 
 	 ' S l o t   S l o t _ S 2   =   1 0 0 0 
 
 	 ' S l o t   S l o t _ S 3   =   0 
 
 	 ' W a i t   S e c o n d s   0 . 2 
 
 	 ' v 4   =   S l o t ( S l o t _ F r e q ) 
 
         '   - - - - - - - - - - - - - - - - - - - - - - - - -   R E C O G N I Z E   C O L O R 
 
 	 I f   v 1   >   v 2   A n d   v 1   >   v 3 
 
 	 	 s 1   =   " R E D " 
 
 	 E l s e 
 
 	 	 I f   v 2   >   v 1   A n d   v 2   >   v 3 
 
 	 	 	 s 1   =   " G R E E N " 
 
 	 	 E l s e 
 
 	 	 	 I f   v 3   >   v 1   A n d   v 3   >   v 2 
 
 	 	 	 	 s 1   =   " B L U " 
 
 	 	 	 E n d I f 
 
 	 	 E n d I f 
 
 	 E n d I f 
 
 	 P r i n t   v 1   +   "   "   +   v 2   +   "   "   +   v 3   +   "   "   +   s 1 
 
 R e t u r n 
 
 
 
 L a b e l     T O U C H   T E S T 
 
 	 W i n d o w   M i n S i z e 
 
 	 B e e p 
 
 	 W a i t   K e y ( " S p a c e " ) 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ T o u c h T e s t . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 L a b e l     S t a r t   W X M   A p p T a b l e t 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S t a r t W X M _ A p p T a b l e t . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 L a b e l     S l i d e   P S W 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ S l i d e P s w . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 V a r i a b l e   S t r i n g   F i l e H e a d e r T e s t N a m e 
 
 L a b e l   W r i t e F i l e H e a d e r 
 
 	 s 1   =   " - - - - - - - - - - - - - - - - - - - - - - - - - "   +   C R L F 
 
 	 s 1   =   s 1   +   F i l e H e a d e r T e s t N a m e   +   C R L F 
 
 	 s 1   =   s 1   +   F o r m a t ( N o w ,   " d d / M M M / y y y y   H H : m m : s s " )   +   C R L F 
 
 	 s 1   =   s 1   +   " - - - - - - - - - - - - - - - - - - - - - - - - - " 
 
 	 S a v e   S t r i n g T o F i l e   s 1   F i l e N a m e 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S E Q U E N C E   L O A D I N G   A N D   E X E C U T I O N 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   S t r i n g   S e q u e n c e F i l e N a m e 
 
 V a r i a b l e   S t r i n g   S e q u e n c e 
 
 V a r i a b l e   S t r i n g   S e q u e n c e C m d 
 
 V a r i a b l e   N u m e r i c   S e q u e n c e I n d e x 
 
 V a r i a b l e   N u m e r i c   S e q u e n c e L e n g t h 
 
 
 
 L a b e l   E x e c S e q u e n c e 
 
 	 L o a d   S e q u e n c e   S e q u e n c e F i l e N a m e 
 
 	 I f   L e n ( S e q u e n c e )   =   0 
 
 	 	 C o n t r o l s   O p e n T e x t B o x 
 
 	 	 P r i n t   C R L F   +   "   S e q u e n c e   f i l e   n o t   f o u n d :   "   +   S e q u e n c e F i l e N a m e 
 
 	 	 B e e p 
 
 	 	 S t o p 
 
 	 E n d I f 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 	 V a r i a b l e   N u m e r i c   E x e c S e q u e n c e S t a r t T i m e 
 
 	 E x e c S e q u e n c e S t a r t T i m e   =   E l a p s e d T i m e 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 	 S e q u e n c e L e n g t h   =   G e t S e p a r a t e d S t r i n g C o u n t ( S e q u e n c e ,   C R L F ) 
 
 	 F o r   S e q u e n c e I n d e x   =   0   T o   S e q u e n c e L e n g t h - 1 
 
 	 	 S e q u e n c e C m d   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e ,   S e q u e n c e I n d e x ,   C R L F ) 
 
 	 	 S e q u e n c e C m d   =   R e p l a c e ( S e q u e n c e C m d ,   C h r ( 9 ) ,   "   " )   ' T A B S   t o   S P A C E S 
 
 	 	 S e q u e n c e C m d   =   R e m o v e C o m m e n t s ( S e q u e n c e C m d ) 
 
 	 	 S e q u e n c e C m d   =   T r i m ( S e q u e n c e C m d ) 
 
 	 	 ' 
 
 	 	 P r i n t   "   E x e c u t i n g   c o m m a n d :   "   +   S e q u e n c e C m d 
 
 	 	 ' 
 
 	 	 S e l e c t   U C a s e ( S e q u e n c e C m d ) 
 
                         '   - - - - - - - - - - - - - - - - - - -   e x i t   f r o m   t h e   s e q u e n c e   - - - - - - - - - - - - - 
 
 	 	 	 C a s e   " E N D S E Q " 
 
 	 	 	 	 S e q u e n c e I n d e x   =   S e q u e n c e L e n g t h - 1 
 
 	 	 	 '   - - - - - - - - - - - - - - - - - - -   s p e c i a l   m u l t i p l e   a c t i o n s   - - - - - - - - - - - 
 
 	 	 	 C a s e   " S L I D E " 	 	           '   s l i d e   b e f o r e   i n s e r t   P S W 
 
 	 	 	 	 G o s u b     S L I D E 
 
 	 	 	 C a s e   " Z E R O "                             '   m o v e   p e n   t o   X = 0   a n d   Y = 0   p o s i t i o n 
 
 	 	 	 	 G o s u b     Z E R O 
 
 	 	 	 C a s e   " A L L   O U T "                       '   a l l   p l u g   o u t 
 
 	 	 	 	 G o s u b     A L L   O U T 
 
 	 	 	 C a s e   " A L L   I N "                         '   a l l   p l u g   i n 
 
 	 	 	 	 G o s u b     A L L   I N 
 
 	 	       '   - - - - - - - - - - - - - - - - - - - - -   s i n g l e   a c t i o n   - - - - - - - - - - - - - - - - - - - - - - 
 
 	 	 	 C a s e   " P O W E R   I N "                     '   p o w e r   p l u g   i n 
 
 	 	 	 	 G o s u b     P O W E R   I N 
 
 	 	 	 C a s e   " P O W E R   O U T "                   '   p o w e r   p l u g   o u t 
 
 	 	 	 	 G o s u b     P O W E R   O U T 
 
 	 	 	 C a s e   " E N A B L E   M O T O R S "           ' e n a b l e   m o v e m e n t   m o t o r s 
 
 	 	 	 	 G o s u b     E N A B . M O T O R S 
 
 	 	 	 C a s e   " D I S A B L E   M O T O R S "         '   d i s a b l e   m o v e m e n t   m o t o r s 
 
 	 	 	 	 G o s u b     D I S A B . M O T O R S 
 
 	 	 	 C a s e   " P E N   U P "                         '   m o v e   p e n   u p 
 
 	 	 	 	 G o s u b     P E N   U P 
 
 	 	 	 C a s e   " P E N   D O W N "                     '   m o v e   p e n   d o w n 
 
 	 	 	 	 G o s u b     P E N   D O W N 
 
 	 	 	 C a s e   " P E N   S I N G L E "                 '   s i n g l e   c l i c k 
 
 	 	 	 	 G o s u b     P E N   S I N G L E 
 
 	 	 	 C a s e   " P E N   D O U B L E "                 '   d o u b l e   c l i c k 
 
 	 	 	 	 G o s u b     P E N   D O U B L E 
 
 	 	 	 C a s e   " P O W E R   C Y C L E "               '   p u s h   p o w e r   b u t t o n ,   w a i t   t h e n   r e l e a s e 
 
 	 	 	 	 ' G o s u b     P O W E R   C Y C L E 
 
 	 	 	 C a s e   " R O T A T E   H O R Z "               '   r o t a t e   t h e   t a b l e t   h o r i z o n t a l l y 
 
 	 	 	 	 G o s u b     R O T A T E   H O R Z 
 
 	 	 	 C a s e   " R O T A T E   M I D L "               '   r o t a t e   t h e   t a b l e t   6 0   d e g r e e 
 
 	 	 	 	 G o s u b     R O T A T E   M I D L 
 
 	 	 	 C a s e   " R O T A T E   V E R T "               '   r o t a t e   t h e   t a b l e t   v e r t i c a l l y 
 
 	 	 	 	 G o s u b     R O T A T E   V E R T 
 
 	 	 	 C a s e   " H D M I   I N " 
 
 	 	 	 	 G o s u b     H D M I   I N 
 
 	 	 	 C a s e   " H D M I   O U T " 
 
 	 	 	 	 G o s u b     H D M I   O U T 
 
 	 	 	 C a s e   " U S B 3   I N " 
 
 	 	 	 	 G o s u b     U S B 3   I N 
 
 	 	 	 C a s e   " U S B 3   O U T " 
 
 	 	 	 	 G o s u b     U S B 3   O U T 
 
 	 	 	 C a s e   " U S B C   I N " 
 
 	 	 	 	 G o s u b     U S B C   I N 
 
 	 	 	 C a s e   " U S B C   O U T " 
 
 	 	 	 	 G o s u b     U S B C   O U T 
 
 	 	 	 C a s e   " U S B P W R   I N " 
 
 	 	 	 	 G o s u b     U S B P W R   I N 
 
 	 	 	 C a s e   " U S B P W R   O U T " 
 
 	 	 	 	 G o s u b     U S B P W R   O U T 
 
 	 	 	 C a s e   " M E M O R Y   I N " 
 
 	 	 	 	 G o s u b     M E M O R Y   I N 
 
 	 	 	 C a s e   " M E M O R Y   O U T " 
 
 	 	 	 	 G o s u b     M E M O R Y   O U T 
 
 	 	 	 C a s e   " H E A R S E T   I N " 
 
 	 	 	 	 G o s u b     H E A R S E T   I N 
 
 	 	 	 C a s e   " H E A R S E T   O U T " 
 
 	 	 	 	 G o s u b     H E A R S E T   O U T 
 
 	 	 	 C a s e   " C L O S E   A L L " 
 
 	 	 	 	 G o s u b     C L O S E   A L L 
 
 	 	 	 '   - - - - - - - - - - - - - - - - - - -   d i s p l a y   a c t i o n s   - - - - - - - - - - - - - - - - - - - - - 
 
 	 	 	 C a s e   " B I T M A P " 
 
 	 	 	 	 G o s u b     B I T M A P 
 
 	 	 	 C a s e   " P H O T O " 
 
 	 	 	 	 G o s u b     P H O T O 
 
 	 	 	 C a s e   " V I D E O " 
 
 	 	 	 	 G o s u b     V I D E O 
 
 	 	 	 C a s e   " R E D " 
 
 	 	 	 	 G o s u b     R E D 
 
 	 	 	 C a s e   " G R E E N " 
 
 	 	 	 	 G o s u b     G R E E N 
 
 	 	 	 C a s e   " B L U " 
 
 	 	 	 	 G o s u b     B L U 
 
 	 	 	 C a s e   " N O   C O L O R " 
 
 	 	 	 	 G o s u b     N O   C O L O R 
 
 	 	 	 '   - - - - - - - - - - - - - - - - - - - - -   W A I T   M O T O R S   - - - - - - - - - - - - - - - - - - - - - - - 
 
 	 	 	 C a s e   " W A I T   M O T O R S " 
 
 	 	 	 	 G o s u b   W a i t M o t o r s 
 
 	 	 	 '   - - - - - - - - - - - - - - - - - - - - -   G E T   S Y S T E M   I N F O   - - - - - - - - - - - - - - - - - - - 
 
 	 	 	 C a s e   " G e t S y s t e m I n f o " 
 
 	 	 	 	 G o s u b     G e t S y s t e m I n f o 
 
 	 	 	 '   - - - - - - - - - - - - - - - - - - - - -   I s t r u c t i o n   w i t h   p a r a m e t e r s   - - - - - - - - 
 
 	 	 	 C a s e E l s e 
 
 	 	 	 	 s 1   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   0 ) 
 
 	 	 	 	 S e l e c t   U C a s e ( s 1 ) 
 
 	 	 	 	 	 C a s e   " M O V E " 
 
 	 	 	 	 	 	 D e s t X   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   1 ) 
 
 	 	 	 	 	 	 D e s t Y   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   2 ) 
 
 	 	 	 	 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 	 	 	 	 C a s e   " M O V E S L O W " 
 
 	 	 	 	 	 	 M o v e S l o w X Y _ D e s t X   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   1 ) 
 
 	 	 	 	 	 	 M o v e S l o w X Y _ D e s t Y   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   2 ) 
 
 	 	 	 	 	 	 M o v e S l o w X Y _ S p e e d   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   3 ) 
 
 	 	 	 	 	 	 G o s u b   M o v e S l o w X Y 
 
 	 	 	 	 	 C a s e   " D R A W C I R C L E " 
 
 	 	 	 	 	 	 D r a w C i r c l e _ X   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   1 ) 
 
 	 	 	 	 	 	 D r a w C i r c l e _ Y   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   2 ) 
 
 	 	 	 	 	 	 D r a w C i r c l e _ R a d i u s   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   3 ) 
 
 	 	 	 	 	 	 D r a w C i r c l e _ S p e e d   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   4 ) 
 
 	 	 	 	 	 	 G o s u b   D r a w C i r c l e 
 
 	 	 	 	 	 C a s e   " P A U S E " 
 
 	 	 	 	 	 	 W a i t   S e c o n d s   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   1 ) 
 
 	 	 	 	 	 C a s e   " P R E S S K E Y S " 
 
 	 	 	 	 	 	 S e q u e n c e C m d   =   M i d ( S e q u e n c e C m d ,   1 1 ) 
 
 	 	 	 	 	 	 P r e s s K e y s   S e q u e n c e C m d 
 
 	 	 	 	 	 C a s e   " S E N D K E Y S " 
 
 	 	 	 	 	 	 S e q u e n c e C m d   =   M i d ( S e q u e n c e C m d ,   1 0 ) 
 
 	 	 	 	 	 	 S e n d K e y s   S e q u e n c e C m d 
 
 	 	 	 	 	 C a s e   " P E N T Y P I N G " 
 
 	 	 	 	 	 	 P E N _ T O U C H _ T I M E   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   1 ) 
 
 	 	 	 	 	 	 G o s u b     P E N   T Y P I N G 
 
 	 	 	 	 	 C a s e E l s e 
 
 	 	 	 	 	 	 I f   s 1   < >   " " 
 
 	 	 	 	 	 	 	 C o n t r o l s   O p e n T e x t B o x 
 
 	 	 	 	 	 	 	 P r i n t   C R L F   +   "   U n r e c o g n i z e d   c o m m a n d :   "   +   S e q u e n c e C m d 
 
 	 	 	 	 	 	 	 B e e p 
 
 	 	 	 	 	 	 	 S t o p 
 
 	 	 	 	 	 	 E n d I f 
 
 	 	 	 	 E n d S e l e c t 
 
 	 	 E n d S e l e c t 
 
 	 N e x t 
 
 	 S e q u e n c e F i l e N a m e   =   R e p l a c e ( S e q u e n c e F i l e N a m e , " . s e q " , " " ) 
 
 	 P r i n t   S e q u e n c e F i l e N a m e   +   "   e x e c u t e d   i n   "   +   F o r m a t ( E l a p s e d T i m e   -   E x e c S e q u e n c e S t a r t T i m e ,   " 0 . 0 0 " )   +   "   s e c o n d s " 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     C O R E   X Y 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   D e s t X 	 	 	 	 '   d e s t i n a t i o n   i n   m m   c o o r d s 
 
 V a r i a b l e   N u m e r i c   D e s t Y 	 	 	 	 '   d e s t i n a t i o n   i n   m m   c o o r d s 
 
 
 
 V a r i a b l e   N u m e r i c   S l o t _ M o t o r A 
 
 V a r i a b l e   N u m e r i c   S l o t _ M o t o r B 
 
 V a r i a b l e   N u m e r i c   S l o t _ E n a b l e M o t o r s 
 
 V a r i a b l e   N u m e r i c   S l o t _ S e n s o r X 
 
 V a r i a b l e   N u m e r i c   S l o t _ S e n s o r Y 
 
 
 
 L a b e l   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t       '   m o v e   t o   d e s t X   &   d e s t Y   a n d   w a i t   s t o p   m o t o r s 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 G o s u b   W a i t M o t o r s 
 
 R e t u r n 
 
 
 
 L a b e l   C o r e X Y _ M o v e T o D e s t X Y 	 	 	 '   m o v e   t o   d e s t X   &   d e s t Y   ( w i t h   l i m i t s ) 
 
 	 D e s t X   =   L i m i t ( D e s t X ,   D e s t x M i n ,   D e s t x M a x ) 
 
 	 D e s t Y   =   L i m i t ( D e s t Y ,   q q q ,   D e s t y M a x ) 
 
 	 G o s u b   C o r e X Y _ P r e p a r e C o r e A B 
 
 	 S l o t ( S l o t _ M o t o r A )   =   C o r e A 
 
 	 S l o t ( S l o t _ M o t o r B )   =   C o r e B 
 
 R e t u r n 
 
 
 
 L a b e l   C o r e X Y _ M o v e T o D e s t X Y _ N o L i m i t s 	 '   m o v e   t o   d e s t X   &   d e s t Y   ( w i t h o u t   u s i n g   l i m i t s ) 
 
 	 G o s u b   C o r e X Y _ P r e p a r e C o r e A B 
 
 	 S l o t ( S l o t _ M o t o r A )   =   C o r e A 
 
 	 S l o t ( S l o t _ M o t o r B )   =   C o r e B 
 
 R e t u r n 
 
 
 
 L a b e l   C o r e X Y _ S e t N e w Z e r o 
 
         '   - - - - - - - - - - - - - - - - - - - - - - - - -   R e s e t   a x i s   X   a n d   Y 
 
 	 S l o t ( S l o t _ M o t o r A )   =   R e s e t 
 
 	 S l o t ( S l o t _ M o t o r B )   =   R e s e t 
 
 	 W a i t   S e c o n d s   0 . 1 5 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - -   S e t   r e s e t   v a l u e s   w i t h   C o r e X Y   c o r r e c t i o n 
 
 	 D e s t X   =   0 
 
 	 D e s t Y   =   0 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ N o L i m i t s 
 
 	 G o s u b   W a i t M o t o r s 
 
 R e t u r n 
 
 
 
 V a r i a b l e   N u m e r i c   C o r e A 
 
 V a r i a b l e   N u m e r i c   C o r e B 
 
 
 
 L a b e l   C o r e X Y _ P r e p a r e C o r e A B 
 
 	 C o r e A   =   ( D e s t X   -   D e s t Y )   /   2 
 
 	 C o r e B   =   ( D e s t X   +   D e s t Y )   /   2 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     H O M E 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   H o m e A x i s 
 
 V a r i a b l e   N u m e r i c   S l o t S e n s o r 
 
 V a r i a b l e   N u m e r i c   D e t a c h M M 
 
 V a r i a b l e   N u m e r i c   S p e e d S e a r c h 
 
 V a r i a b l e   N u m e r i c   S p e e d R e t u r n 
 
 V a r i a b l e   N u m e r i c   I n i t i a l P o s i t i o n 
 
 
 
 L a b e l   Z E R O 
 
 	 G o s u b   C o r e X Y _ S e t N e w Z e r o 
 
 	 G o s u b     E N A B . M O T O R S 
 
 	 G o s u b     P E N   U P 
 
 	 G o s u b   H o m e X 
 
 	 G o s u b   H o m e Y 
 
 	 G o s u b   C o r e X Y _ S e t N e w Z e r o 
 
 	 P r i n t   F o r m a t ( D e s t X ,   " 0 . 0 0 0 " )   +   "   "   +   F o r m a t ( D e s t Y ,   " 0 . 0 0 0 " ) 
 
 	 ' G o s u b   " D I S A B . M O T O R S " 
 
 R e t u r n 
 
 
 
 L a b e l   H o m e X 
 
 	 H o m e A x i s   =   0                 	     '   0   =   A x i s   X 
 
 	 S l o t S e n s o r   =   S l o t _ S e n s o r X   '   h o m e   s e n s o r   s l o t 
 
 	 D e t a c h M M   =   1 	 	 	     '   i n i t i a l   d e t a c h   m m   ( n e g   o r   p o s ) 
 
 	 S p e e d S e a r c h   =   - 0 . 3 3 	             '   d i r e c t i o n   a n d   s p e e d 
 
 	 S p e e d R e t u r n   =   + 0 . 0 5 	 	     '   D e t a c h   d i r e c t i o n   a n d   s p e e d 
 
 	 I n i t i a l P o s i t i o n   =   5 	 	     '   m o v e   t o   M M 
 
 	 G o s u b     H o m e 
 
 R e t u r n 
 
 
 
 L a b e l   H o m e Y 
 
 	 H o m e A x i s   =   1                 	     '   1   =   A x i s   Y 
 
 	 S l o t S e n s o r   =   S l o t _ S e n s o r Y   '   h o m e   s e n s o r   s l o t 
 
 	 D e t a c h M M   =   1 	 	 	     '   i n i t i a l   d e t a c h   m m   ( n e g   o r   p o s ) 
 
 	 S p e e d S e a r c h   =   - 0 . 3 	 	     '   d i r e c t i o n   a n d   s p e e d 
 
 	 S p e e d R e t u r n   =   + 0 . 0 5 	 	     '   D e t a c h   d i r e c t i o n   a n d   s p e e d 
 
 	 I n i t i a l P o s i t i o n   =   3 	 	     '   m o v e   t o   M M 
 
 	 G o s u b   H o m e 
 
 R e t u r n 
 
 
 
 L a b e l   H o m e 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - -   d e t a c h   i f   s e n s o r   i s   a c t i v e 
 
 	 I f   S l o t ( S l o t S e n s o r )   >   5 0 0   O r   K e y ( " C T R L " ) 
 
 	 	 I f   H o m e A x i s   =   0 
 
 	 	 	 D e s t X   =   D e s t X   +   D e t a c h M M 
 
 	 	 E l s e 
 
 	 	 	 D e s t Y   =   D e s t Y   +   D e t a c h M M 
 
 	 	 E n d I f 
 
 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ N o L i m i t s 
 
 	 	 G o s u b   W a i t M o t o r s 
 
 	 E n d I f 
 
         '   - - - - - - - - - - - - - - - - - - - - - - - - - -   s e a r c h   t h e   s e n s o r 
 
 L a b e l   S e a r c h H o m e 
 
 	 I f   H o m e A x i s   =   0 
 
 	 	 D e s t X   =   D e s t X   +   S p e e d S e a r c h 
 
 	 E l s e 
 
 	 	 D e s t Y   =   D e s t Y   +   S p e e d S e a r c h 
 
 	 E n d I f 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ N o L i m i t s 
 
 	 ' 
 
 	 W a i t   S e c o n d s   0 . 0 0 5 
 
 	 I f   S l o t ( S l o t S e n s o r )   >   5 0 0   O r   K e y ( " C T R L " ) 
 
 	 	 G o s u b   C o r e X Y _ S e t N e w Z e r o 
 
 	 	 G o t o   D e t a c h S e n s o r 
 
 	 E n d I f 
 
 G o t o   S e a r c h H o m e 
 
         '   - - - - - - - - - - - - - - - - - - - - - - - - - -   d e t a c h   f r o m   t h e   s e n s o r 
 
 L a b e l   D e t a c h S e n s o r 
 
 	 I f   H o m e A x i s   =   0 
 
 	 	 D e s t X   =   D e s t X   +   S p e e d R e t u r n 
 
 	 E l s e 
 
 	 	 D e s t Y   =   D e s t Y   +   S p e e d R e t u r n 
 
 	 E n d I f 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ N o L i m i t s 
 
 	 W a i t   S e c o n d s   0 . 0 0 5 
 
 	 I f   S l o t   ( S l o t S e n s o r )   <   5 0 0   O r   K e y ( " C T R L " ) 
 
 	 	 G o s u b   W a i t M o t o r s 
 
 	 	 G o s u b   C o r e X Y _ S e t N e w Z e r o 
 
 	 	 G o t o   M o v e T o I n i t i a l P o s i t i o n 
 
 	 E n d I f 
 
 G o t o   D e t a c h S e n s o r 
 
         '   - - - - - - - - - - - - - - - - - - - - - - - - - -   m o v e   t o   I n i t i a l P o s i t i o n 
 
 L a b e l   M o v e T o I n i t i a l P o s i t i o n 
 
 	 I f   H o m e A x i s   =   0 
 
 	 	 D e s t X   =   I n i t i a l P o s i t i o n 
 
 	 E l s e 
 
 	 	 D e s t Y   =   I n i t i a l P o s i t i o n 
 
 	 E n d I f 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ N o L i m i t s 
 
 	 G o s u b   W a i t M o t o r s 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     W A I T   u n t i l   t h e   m o t o r s   A   a n d   B   a r e   s t o p p e d 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 L a b e l   W a i t M o t o r s 
 
 	 W a i t   S e c o n d s   0 . 1                   '   t h i s   e n s u r e s   t h a t   t h e   m o t o r s   a r e   r u n n i n g 
 
 	 L a b e l   W a i t M o t o r s 1 
 
 	 	 I f   A b s ( S l o t ( S l o t _ M o t o r A   +   1 ) )   <   0 . 0 5 
 
 	 	 	 I f   A b s ( S l o t ( S l o t _ M o t o r B   +   1 ) )   <   0 . 0 5 
 
 	 	 	 	 R e t u r n 
 
 	 	 	 E n d I f 
 
 	 	 E n d I f 
 
 	 	 W a i t   S e c o n d s   0 . 0 0 5 
 
 	 G o t o   W a i t M o t o r s 1 
 
 G o t o   W a i t M o t o r s 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S E R V O - M O T O R S   M O V E M E N T S 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   P O W E R _ I N 
 
 V a r i a b l e   N u m e r i c   P O W E R _ O U T 
 
 V a r i a b l e   N u m e r i c   U S B 3 _ I N 
 
 V a r i a b l e   N u m e r i c   U S B 3 _ O U T 
 
 V a r i a b l e   N u m e r i c   U S B C _ I N 
 
 V a r i a b l e   N u m e r i c   U S B C _ O U T 
 
 V a r i a b l e   N u m e r i c   H D M I _ I N 
 
 V a r i a b l e   N u m e r i c   H D M I _ O U T 
 
 V a r i a b l e   N u m e r i c   U S B P W R _ I N 
 
 V a r i a b l e   N u m e r i c   U S B P W R _ O U T 
 
 V a r i a b l e   N u m e r i c   O N O F F _ I N 
 
 V a r i a b l e   N u m e r i c   O N O F F _ O U T 
 
 V a r i a b l e   N u m e r i c   V O L U M E _ I N _ U P 
 
 V a r i a b l e   N u m e r i c   V O L U M E _ O U T 
 
 V a r i a b l e   N u m e r i c   V O L U M E _ I N _ D W 
 
 V a r i a b l e   N u m e r i c   M E M O R Y _ I N 
 
 V a r i a b l e   N u m e r i c   M E M O R Y _ O U T 
 
 V a r i a b l e   N u m e r i c   H E A R S E T _ I N 
 
 V a r i a b l e   N u m e r i c   H E A R S E T _ O U T 
 
 V a r i a b l e   N u m e r i c   P E N _ D O W N 
 
 V a r i a b l e   N u m e r i c   P E N _ U P 
 
 V a r i a b l e   N u m e r i c   P E N _ T O U C H _ T I M E 
 
 
 
 V a r i a b l e   N u m e r i c   S L O T _ P O W E R 	 	 	 '   d i g i t a l   m o t o r   1 
 
 V a r i a b l e   N u m e r i c   S L O T _ U S B 3 	 	 	 '   d i g i t a l   m o t o r   2 
 
 V a r i a b l e   N u m e r i c   S L O T _ U S B C 	 	 	 '   d i g i t a l   m o t o r   3 
 
 V a r i a b l e   N u m e r i c   S L O T _ H D M I 	 	 	 '   d i g i t a l   m o t o r   4 
 
 V a r i a b l e   N u m e r i c   S L O T _ U S B P W R 	 	 '   d i g i t a l   m o t o r   5 
 
 V a r i a b l e   N u m e r i c   S L O T _ O N O F F 	 	 	 '   d i g i t a l   m o t o r   6 
 
 V a r i a b l e   N u m e r i c   S L O T _ V O L U M E 	 	 '   d i g i t a l   m o t o r   7 
 
 V a r i a b l e   N u m e r i c   S L O T _ M E M O R Y 	 	 '   d i g i t a l   m o t o r   8 
 
 V a r i a b l e   N u m e r i c   S L O T _ H E A R S E T 	 	 '   d i g i t a l   m o t o r   9 
 
 V a r i a b l e   N u m e r i c   S L O T _ P E N 	 	 	 '   d i g i t a l   m o t o r   1 0 
 
 V a r i a b l e   N u m e r i c   S L O T _ R O T A T 	 	 	 '   d i g i t a l   m o t o r   1 1 
 
 V a r i a b l e   N u m e r i c   S L O T _ T a b l e t P o w e r       '   T a b l l e t   p o w e r   s e n s i n g 
 
 
 
 ' L a b e l     S T A R T   L O O P 
 
 ' 	 v 2   =   I n p u t   " H o w   m a n y   l o o p s   ? " 
 
 ' 	 F o r   v 1   =   1   T o   v 2 
 
 ' 	 	 G o s u b   " A L L   I N " 
 
 ' 	 	 W a i t   S e c o n d s   0 . 5 
 
 ' 	 	 G o s u b   " A L L   O U T " 
 
 ' 	 	 W a i t   S e c o n d s   0 . 5 
 
 ' 	 N e x t 
 
 ' R e t u r n 
 
 
 
 L a b e l     P O W E R   O U T 
 
 	 M o v e _ S l o t   =   S L O T _ P O W E R 
 
 	 M o v e _ D e s t   =   P O W E R _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 	 B u t t o n   1   C o l o r   C h o c o l a t e 
 
 	 B u t t o n   2   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l     P O W E R   I N 
 
 	 M o v e _ S l o t   =   S L O T _ P O W E R 
 
 	 M o v e _ D e s t   =   P O W E R _ I N 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 	 B u t t o n   1   C o l o r   L i m e 
 
 	 B u t t o n   2   C o l o r   C h o c o l a t e 
 
 R e t u r n 
 
 
 
 L a b e l     U S B 3   O U T 
 
 	 M o v e _ S l o t   =   S L O T _ U S B 3 
 
 	 M o v e _ D e s t   =   U S B 3 _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     U S B 3   I N 
 
 	 M o v e _ S l o t   =   S L O T _ U S B 3 
 
 	 M o v e _ D e s t   =   U S B 3 _ I N 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     U S B C   I N 
 
 	 M o v e _ S l o t   =   S L O T _ U S B C 
 
 	 M o v e _ D e s t   =   U S B C _ I N 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     U S B C   O U T 
 
 	 M o v e _ S l o t   =   S L O T _ U S B C 
 
 	 M o v e _ D e s t   =   U S B C _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     H D M I   O U T 
 
 	 M o v e _ S l o t   =   S L O T _ H D M I 
 
 	 M o v e _ D e s t   =   H D M I _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     H D M I   I N 
 
 	 M o v e _ S l o t   =   S L O T _ H D M I 
 
 	 M o v e _ D e s t   =   H D M I _ I N 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     U S B P W R   O U T 
 
 	 M o v e _ S l o t   =   S L O T _ U S B P W R 
 
 	 M o v e _ D e s t   =   U S B P W R _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     U S B P W R   I N 
 
 	 M o v e _ S l o t   =   S L O T _ U S B P W R 
 
 	 M o v e _ D e s t   =   U S B P W R _ I N 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 
 
 L a b e l   R e c e i v e F i l e F r o m C O M 
 
 	 V a r i a b l e   S t r i n g   F i l e N a m e 
 
 	 V a r i a b l e   S t r i n g   S t r 1 
 
 	 ' 
 
 	 C O M   D i s c a r d I n B u f f e r 
 
 	 ' 
 
 	 S t r 1   =   " " 
 
 	 F o r   v 1   =   1   T o   9 e 9 9 
 
 	 	 s 1   =   C O M _ R e c e i v e d 
 
 	 	 I f   s 1   < >   " " 
 
 	 	 	 s 1   =   R e p l a c e ( s 1 ,   " { { { C R L F } } } " ,   C R L F ) 
 
 	 	 	 S t r 1   =   S t r 1   +   s 1 
 
 	 	 	 I f   s 1   =   " { { { F i l e E n d M a r k e r } } } " 
 
 	 	 	 	 S t r 1   =   R e p l a c e ( S t r 1 ,   " { { { F i l e E n d M a r k e r } } } " ,   " " ) 
 
 	 	 	 	 S a v e   D e l e t e F i l e   F i l e N a m e 
 
 	 	 	 	 S a v e   S t r i n g T o F i l e   S t r 1   F i l e N a m e 
 
 	 	 	 	 E x i t 
 
 	 	 	 E n d I f 
 
 	 	 E n d I f 
 
 	 	 W a i t   S e c o n d s   0 . 0 1 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 
 
 
 
 L a b e l     O N O F F   O U T 
 
 	 M o v e _ S l o t   =   S L O T _ O N O F F 
 
 	 M o v e _ D e s t   =   O N O F F _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     O N O F F   I N 
 
 	 M o v e _ S l o t   =   S L O T _ O N O F F 
 
 	 M o v e _ D e s t   =   O N O F F _ I N 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     V O L U M E   O U T 
 
 	 M o v e _ S l o t   =   S L O T _ V O L U M E 
 
 	 M o v e _ D e s t   =   V O L U M E _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     V O L U M E   U P 
 
 	 M o v e _ S l o t   =   S L O T _ V O L U M E 
 
 	 M o v e _ D e s t   =   V O L U M E _ I N _ U P 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     V O L U M E   D W 
 
 	 M o v e _ S l o t   =   S L O T _ V O L U M E 
 
 	 M o v e _ D e s t   =   V O L U M E _ I N _ D W 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     M E M O R Y   O U T 
 
 	 M o v e _ S l o t   =   S L O T _ M E M O R Y 
 
 	 M o v e _ D e s t   =   M E M O R Y _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     M E M O R Y   I N 
 
 	 M o v e _ S l o t   =   S L O T _ M E M O R Y 
 
 	 M o v e _ D e s t   =   M E M O R Y _ I N 
 
 	 M o v e _ S p e e d   =   3 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     H E A R S E T   O U T 
 
 	 M o v e _ S l o t   =   S L O T _ H E A R S E T 
 
 	 M o v e _ D e s t   =   H E A R S E T _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     H E A R S E T   I N 
 
 	 M o v e _ S l o t   =   S L O T _ H E A R S E T 
 
 	 M o v e _ D e s t   =   H E A R S E T _ I N 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     P E N   U P 
 
 	 M o v e _ S l o t   =   S L O T _ P E N 
 
 	 M o v e _ D e s t   =   P E N _ U P 
 
 	 S l o t ( M o v e _ S l o t )   =   M o v e _ D e s t 
 
 	 W a i t   S e c o n d s   0 . 1 
 
 R e t u r n 
 
 
 
 L a b e l     P E N   D O W N 
 
 	 M o v e _ S l o t   =   S L O T _ P E N 
 
 	 M o v e _ D e s t   =   P E N _ D O W N 
 
 	 S l o t ( M o v e _ S l o t )   =   M o v e _ D e s t 
 
 	 W a i t   S e c o n d s   0 . 1 
 
 R e t u r n 
 
 
 
 L a b e l     P E N   S I N G L E 
 
 	 G o s u b     P E N   D O W N 
 
 	 W a i t   S e c o n d s   0 . 3 5 
 
 	 G o s u b     P E N   U P 
 
 R e t u r n 
 
 
 
 L a b e l     P E N   D O U B L E 
 
 	 S l o t ( S L O T _ P E N )   =   P E N _ D O W N 
 
 	 W a i t   S e c o n d s   0 . 0 9 
 
 	 S l o t ( S L O T _ P E N )   =   P E N _ U P 
 
 	 W a i t   S e c o n d s   0 . 1 
 
 	 S l o t ( S L O T _ P E N )   =   P E N _ D O W N 
 
 	 W a i t   S e c o n d s   0 . 0 9 
 
 	 S l o t ( S L O T _ P E N )   =   P E N _ U P 
 
 R e t u r n 
 
 
 
 L a b e l     P E N   T Y P I N G 
 
 	 M o v e _ S l o t   =   S L O T _ P E N 
 
 	 M o v e _ D e s t   =   P E N _ D O W N 
 
 	 S l o t ( M o v e _ S l o t )   =   M o v e _ D e s t 
 
 	 W a i t   S e c o n d s   P E N _ T O U C H _ T I M E 
 
 	 M o v e _ S l o t   =   S L O T _ P E N 
 
 	 M o v e _ D e s t   =   P E N _ U P 
 
 	 S l o t ( M o v e _ S l o t )   =   M o v e _ D e s t 
 
 	 
 
 	 ' B u t t o n   1 0   T e x t     P E N   U P 
 
 R e t u r n 
 
 
 
 L a b e l     P O W E R   O N 
 
 	 G o s u b     U S B 3   I N 
 
 	 B u t t o n   4   C o l o r   F l a s h i n g 8   Y e l l o w 5   R e d 5 
 
 	 G o s u b     O N O F F   I N 
 
 	 W a i t   S e c o n d s   3 
 
 	 I f   S l o t ( S L O T _ T a b l e t P o w e r )   >   5 0 0 
 
 	 	 B u t t o n   4   C o l o r   P a l e G r e e n 
 
 	 	 B u t t o n   5   C o l o r   R e d 
 
 	 E l s e 
 
 	 	 P r i n t   " P O W E R   O N   F A I L U R E " 
 
 	 E n d I f 
 
 	 G o s u b     O N O F F   O U T 
 
 R e t u r n 
 
 
 
 L a b e l     P O W E R   O F F 
 
 	 G o s u b     U S B 3   I N 
 
 	 B u t t o n   4   C o l o r   Y e l l o w 6 
 
 	 B u t t o n   5   C o l o r   F l a s h i n g 8   Y e l l o w 5   R e d 5 
 
 	 G o s u b     O N O F F   I N 
 
 	 W a i t   S e c o n d s   1 0 
 
 	 I f   S l o t ( S L O T _ T a b l e t P o w e r )   <   5 0 0 
 
 	 	 B u t t o n   4   C o l o r   B l a c k 
 
 	 	 B u t t o n   5   C o l o r   B l a c k 
 
 	 E n d I f 
 
 	 G o s u b     O N O F F   O U T 
 
 R e t u r n 
 
 
 
 L a b e l     E N A B . M O T O R S 
 
 	 G o s u b   W a i t M o t o r s 
 
 	 S l o t ( S l o t _ E n a b l e M o t o r s )   =   1 0 0 0 
 
 ' I f   B u t t o n V i s i b l e ( 2 ) 
 
 ' 	 B u t t o n   2   T e x t   " D I S A B . M O T O R S " 
 
 ' 	 B u t t o n   2   C o l o r   G r e e n Y e l l o w 
 
 ' E n d I f 
 
 R e t u r n 
 
 
 
 L a b e l     D I S A B . M O T O R S 
 
 	 G o s u b   W a i t M o t o r s 
 
 	 S l o t ( S l o t _ E n a b l e M o t o r s )   =   0 
 
 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 ' 	 I f   B u t t o n V i s i b l e ( 3 ) 
 
 ' 	 B u t t o n   3   T e x t   " E N A B . M O T O R S " 
 
 ' 	 B u t t o n   3   C o l o r   R e d 
 
 ' E n d I f 
 
 R e t u r n 
 
 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S E R V O - M O T O R S   M O V E   S L O W 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   M o v e _ S l o t 
 
 V a r i a b l e   N u m e r i c   M o v e _ S p e e d 
 
 V a r i a b l e   N u m e r i c   M o v e _ D e s t 
 
 V a r i a b l e   N u m e r i c   M o v e _ P o s 
 
 
 
 L a b e l   M o v e S l o w 
 
 	 M o v e _ P o s   =   S l o t ( M o v e _ S l o t ) 
 
 	 I f   M o v e _ D e s t   >   M o v e _ P o s 
 
 	 	 M o v e _ P o s   =   M o v e _ P o s   +   M o v e _ S p e e d 
 
 	 	 I f   M o v e _ P o s   >   M o v e _ D e s t 
 
 	 	 	 M o v e _ P o s   =   M o v e _ D e s t 
 
 	 	 E n d I f 
 
 	 E l s e 
 
 	 	 M o v e _ P o s   =   M o v e _ P o s   -   M o v e _ S p e e d 
 
 	 	 I f   M o v e _ P o s   <   M o v e _ D e s t 
 
 	 	 	 M o v e _ P o s   =   M o v e _ D e s t 
 
 	 	 E n d I f 
 
 	 E n d I f 
 
 	 S l o t ( M o v e _ S l o t )   =   M o v e _ P o s 
 
 	 W a i t   S e c o n d s   0 . 0 1 
 
 	 I f   M o v e _ P o s   =   M o v e _ D e s t 
 
 	 	 R e t u r n 
 
 	 E n d I f 
 
 G o t o   M o v e S l o w 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S T E P P E R - M O T O R S   M O V E   S L O W 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   M o v e S l o w X Y _ D e s t X   	 '   d e s t i n a t i o n   i n   m m 
 
 V a r i a b l e   N u m e r i c   M o v e S l o w X Y _ D e s t Y   	 '   d e s t i n a t i o n   i n   m m 
 
 V a r i a b l e   N u m e r i c   M o v e S l o w X Y _ S p e e d   	 '   s p e e d   i n   m m / s e c 
 
 
 
 V a r i a b l e   N u m e r i c   M S V 1 
 
 V a r i a b l e   N u m e r i c   M S V 2 
 
 V a r i a b l e   N u m e r i c   M S V 3 
 
 V a r i a b l e   N u m e r i c   M S V 4 
 
 
 
 L a b e l   M o v e S l o w X Y 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   t e s t   f o r   v e r y   l o w   s p e e d 
 
 	 I f   M o v e S l o w X Y _ S p e e d   <   0 . 1 
 
 	 	 M o v e S l o w X Y _ S p e e d   =   1 
 
 	 E n d I f 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   t h e   m o v e m e n t   i n   m m 
 
 	 M S V 1   =   M o v e S l o w X Y _ D e s t X   -   D e s t X 
 
 	 M S V 2   =   M o v e S l o w X Y _ D e s t Y   -   D e s t Y 
 
 	 M S V 3   =   M S V 1   *   M S V 1 
 
 	 M S V 3   =   M S V 3   +   M S V 2   *   M S V 2 
 
 	 M S V 3   =   S q r t ( M S V 3 ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   t h e   l o o p s   c o u n t 
 
 	 M S V 4   =   M S V 3   /   0 . 0 1   ' < < <   l o o p   t i m e 
 
 	 M S V 4   =   I n t ( M S V 4   /   M o v e S l o w X Y _ S p e e d ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   t o o   m u c h   s p e e d   ? 
 
 	 I f   M S V 4   =   0 
 
 	 	 D e s t X   =   M o v e S l o w X Y _ D e s t X 
 
 	 	 D e s t Y   =   M o v e S l o w X Y _ D e s t Y 
 
 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 	 R e t u r n 
 
 	 E n d I f 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   p r e p a r e   t h e   i n c r e m e n t s 
 
 	 M S V 1   =   ( M o v e S l o w X Y _ D e s t X   -   D e s t X )   /   M S V 4 
 
 	 M S V 2   =   ( M o v e S l o w X Y _ D e s t Y   -   D e s t Y )   /   M S V 4 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   l o o p   f o r   v 4   t i m e s 
 
 	 F o r   M S V 3   =   1   T o   M S V 4 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   i n c r e m e n t ,   m o v e   a n d   w a i t 
 
 	 	 D e s t X   =   D e s t X   +   M S V 1 
 
 	 	 D e s t Y   =   D e s t Y   +   M S V 2 
 
 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 	 W a i t   S e c o n d s   0 . 0 1   ' < < <   l o o p   t i m e 
 
 	 N e x t 
 
 	 G o s u b   W a i t M o t o r s 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S T E P P E R - M O T O R S   D R A W   C I R C L E 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   D r a w C i r c l e _ X   	         '   C e n t e r   X   i n   m m 
 
 V a r i a b l e   N u m e r i c   D r a w C i r c l e _ Y   	         '   C e n t e r   Y   i n   m m 
 
 V a r i a b l e   N u m e r i c   D r a w C i r c l e _ R a d i u s     '   R a d i u s   i n   m m 
 
 V a r i a b l e   N u m e r i c   D r a w C i r c l e _ S p e e d   	 '   S p e e d   i n   m m / s e c 
 
 
 
 V a r i a b l e   N u m e r i c   D C V 1 
 
 V a r i a b l e   N u m e r i c   D C V 2 
 
 V a r i a b l e   N u m e r i c   D C V 3 
 
 V a r i a b l e   N u m e r i c   D C V 4 
 
 
 
 L a b e l   D r a w C i r c l e 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   t e s t   f o r   v e r y   l o w   s p e e d 
 
 	 I f   D r a w C i r c l e _ S p e e d   <   0 . 1 
 
 	 	 D r a w C i r c l e _ S p e e d   =   1 
 
 	 E n d I f 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   t h e   m o v e m e n t   i n   m m 
 
 	 D C V 3   =   D r a w C i r c l e _ R a d i u s   *   M a t h _ P I   *   2 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   t h e   l o o p s   c o u n t 
 
 	 D C V 4   =   D C V 3   /   0 . 0 1   ' < < <   l o o p   t i m e 
 
 	 D C V 4   =   I n t ( D C V 4   /   D r a w C i r c l e _ S p e e d ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   t o o   m u c h   s p e e d   ? 
 
 	 I f   D C V 4   <   1 6 
 
 	 	 D C V 4   =   1 6 
 
 	 E n d I f 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   p r e p a r e   t h e   i n c r e m e n t s 
 
 	 D C V 1   =   2   *   M a t h _ P I   /   D C V 4 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   l o o p   f o r   v 4   t i m e s 
 
 	 F o r   D C V 3   =   0   T o   D C V 4 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   c i r c l e 
 
 	 	 D C V 2   =   D C V 3   *   D C V 1 
 
 	 	 D e s t X   =   D r a w C i r c l e _ X   +   D r a w C i r c l e _ R a d i u s   *   S i n ( D C V 2 ) 
 
 	 	 D e s t Y   =   D r a w C i r c l e _ Y   +   D r a w C i r c l e _ R a d i u s   *   C o s ( D C V 2 ) 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   m o v e   a n d   w a i t 
 
 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 	 W a i t   S e c o n d s   0 . 0 1   ' < < <   l o o p   t i m e 
 
 	 N e x t 
 
 	 G o s u b   W a i t M o t o r s 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S T E P P E R - M O T O R S   a n d   P E N   a c t i o n   S L I D E 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   S l i d e _ D e s t X   	   '   d e s t i n a t i o n   i n   m m 
 
 V a r i a b l e   N u m e r i c   S l i d e _ D e s t Y   	   '   d e s t i n a t i o n   i n   m m 
 
 V a r i a b l e   N u m e r i c   S l i d e _ S p e e d   	   '   s p e e d   i n   m m / s e c 
 
 V a r i a b l e   N u m e r i c   S l i d e _ P e n U p T i m e   '   p e n - u p   t i m e   i n   m S   f r o m   s t a r t 
 
 
 
 V a r i a b l e   N u m e r i c   S L V 1 
 
 V a r i a b l e   N u m e r i c   S L V 2 
 
 V a r i a b l e   N u m e r i c   S L V 3 
 
 V a r i a b l e   N u m e r i c   S L V 4 
 
 V a r i a b l e   N u m e r i c   S L V 5 
 
 
 
 L a b e l   S L I D E 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 S l i d e _ D e s t X   =   5 0                                     ' 5 0 
 
 	 S l i d e _ D e s t Y   =   1 3 0                                   ' 1 3 0 
 
 	 S l i d e _ S p e e d   =   2 0 0                                   ' 2 0 0 
 
 	 S l i d e _ P e n U p T i m e   =   5 0 0                           ' 5 0 0 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   t h e   m o v e m e n t   i n   m m 
 
 	 S L V 1   =   S l i d e _ D e s t X   -   D e s t X 
 
 	 S L V 2   =   S l i d e _ D e s t Y   -   D e s t Y 
 
 	 S L V 3   =   S L V 1   *   S L V 1 
 
 	 S L V 3   =   S L V 3   +   S L V 2   *   S L V 2 
 
 	 S L V 3   =   S q r t ( S L V 3 ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   t h e   l o o p s   c o u n t 
 
 	 S L V 4   =   S L V 3   /   0 . 0 1   ' < < <   l o o p   t i m e 
 
 	 S L V 4   =   I n t ( S L V 4   /   S l i d e _ S p e e d ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   p r e p a r e   t h e   i n c r e m e n t s 
 
 	 S L V 1   =   ( S l i d e _ D e s t X   -   D e s t X )   /   S L V 4 
 
 	 S L V 2   =   ( S l i d e _ D e s t Y   -   D e s t Y )   /   S L V 4 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   p r e p a r e   t h e   p e n - u p   t i m e 
 
 	 S L V 5   =   S l i d e _ P e n U p T i m e   /   1 0 0 0 
 
 	 S L V 5   =   I n t ( S L V 5   /   0 . 0 1 )   ' < < <   l o o p   t i m e 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   p e n   d o w n 
 
 	 S l o t ( S L O T _ P E N )   =   P E N _ D O W N 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   l o o p   f o r   v 4   t i m e s 
 
 	 F o r   S L V 3   =   1   T o   S L V 4 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   i n c r e m e n t ,   m o v e   a n d   w a i t 
 
 	 	 D e s t X   =   D e s t X   +   S L V 1 
 
 	 	 D e s t Y   =   D e s t Y   +   S L V 2 
 
 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 	 W a i t   S e c o n d s   0 . 0 1   ' < < <   l o o p   t i m e 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   p e n   u p 
 
 	 	 I f   S L V 3   =   S L V 5 
 
 	 	 	 S l o t ( S L O T _ P E N )   =   P E N _ U P 
 
 	 	 E n d I f 
 
 	 N e x t 
 
 	 G o s u b   W a i t M o t o r s 
 
 	 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     R O T A T I O N S   V E R T I C A L / H O R I Z Z O N T A L 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   S l o t _ R o t H V _ D r i v e 
 
 V a r i a b l e   N u m e r i c   S l o t _ R o t H V _ C u r r e n t 
 
 V a r i a b l e   N u m e r i c   S l o t _ R o t H V _ M a x C u r r e n t 
 
 
 
 L a b e l     R O T A T E   V E R T 
 
 	 S l o t   9 9 8   =   6 0 0 	 	 	 ' s t a r t   S i g n a l   S c o p e 
 
 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 F o r   v 1   =   1   T o   1 3 0 0                 '   < < <   1 0 0 0   =   1 0   s e c   t i m e o u t   ( a p p r o x ) 
 
 	 	 W a i t   S e c o n d s   0 . 0 0 9 
 
 	 	 I f   S l o t ( S l o t _ R o t H V _ C u r r e n t )   >   S l o t _ R o t H V _ M a x C u r r e n t 
 
 	 	 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 	 	 S l o t   9 9 8   =   0 	 ' s t o p   S i g n a l   S c o p e 
 
 	 	 	 B u t t o n   1 2   L a b e l   " R O T A T E   H O R Z " 
 
 	 	 	 G o t o   E x i t R o t a t e V e r t 
 
 	 	 E n d I f 
 
 	 N e x t 
 
 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 S l o t   9 9 8   =   0 	 	 	 ' s t o p   S i g n a l   S c o p e 
 
 	 B u t t o n   1 2   L a b e l   " R O T A T E   H O R Z " 
 
 ' 
 
 L a b e l   E x i t R o t a t e V e r t 
 
 R e t u r n 
 
 
 
 L a b e l     R O T A T E   M I D L 
 
 	 S l o t   9 9 8   =   6 0 0 	 	 	 ' s t a r t   S i g n a l   S c o p e 
 
 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 F o r   v 1   =   1   T o   6 0 0                 '   < < <   1 0 0 0   =   1 0   s e c   t i m e o u t   ( a p p r o x ) 
 
 	 	 W a i t   S e c o n d s   0 . 0 0 9 
 
 	 	 I f   S l o t ( S l o t _ R o t H V _ C u r r e n t )   >   S l o t _ R o t H V _ M a x C u r r e n t 
 
 	 	 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 	 	 S l o t   9 9 8   =   0 	 ' s t o p   S i g n a l   S c o p e 
 
 	 	 	 G o t o   E x i t R o t a t e M i d l 
 
 	 	 E n d I f 
 
 	 N e x t 
 
 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 S l o t   9 9 8   =   0 	 	 	 ' s t o p   S i g n a l   S c o p e 
 
 ' 
 
 L a b e l   E x i t R o t a t e M i d l 
 
 R e t u r n 
 
 
 
 L a b e l     R O T A T E   H O R Z 
 
 	 S l o t   9 9 8   =   6 0 0 	 	 	 ' s t a r t   S i g n a l   S c o p e 
 
 	 S l o t   S l o t _ R o t H V _ D r i v e   =   0 
 
 	 W a i t   S e c o n d s   0 . 3 
 
 	 F o r   v 1   =   1   T o   1 3 0 0                 '   < < <   1 0 0 0   =   1 0   s e c   t i m e o u t   ( a p p r o x ) 
 
 	 	 W a i t   S e c o n d s   0 . 0 0 9 
 
 	 	 I f   S l o t ( S l o t _ R o t H V _ C u r r e n t )   >   S l o t _ R o t H V _ M a x C u r r e n t 
 
 	 	 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 	 	 S l o t   9 9 8   =   0 	 ' s t o p   S i g n a l   S c o p e 
 
 	 	 	 B u t t o n   1 2   L a b e l     R O T A T E   V E R T 
 
 	 	 	 G o t o   E x i t R o t a t e H o r z 
 
 	 	 E n d I f 
 
 	 N e x t 
 
 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 S l o t   9 9 8   =   0 	 	 	 ' s t o p   S i g n a l   S c o p e 
 
 	 B u t t o n   1 2   L a b e l     R O T A T E   V E R T 
 
 	 ' 
 
 L a b e l   E x i t R o t a t e H o r z 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     J O G   W I T H   M O U S E 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   J o g _ E n a b l e _ S l o t 
 
 V a r i a b l e   N u m e r i c   J o g _ R a n g e X 
 
 V a r i a b l e   N u m e r i c   J o g _ R a n g e Y 
 
 V a r i a b l e   N u m e r i c   J o g _ A c t i v e 
 
 
 
 L a b e l     J O G   w i t h   M o u s e 
 
 	 G o s u b     E N A B . M O T O R S 
 
 	 B u t t o n   8   L a b e l     " J O G   S T O P " 
 
 	 J o g _ A c t i v e   =   1 
 
 	 L a b e l   J o g 2 
 
 	 	 I f   S l o t ( J o g _ E n a b l e _ S l o t )   >   5 0 0 
 
 	 	 	 D e s t X   =   M o u s e X   *   J o g _ R a n g e X 
 
 	 	 	 D e s t Y   =   M o u s e Y   *   J o g _ R a n g e Y 
 
 	 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 	 	 P r i n t   F o r m a t ( D e s t X ,   " 0 . 0 0 0 " )   +   "   "   +   F o r m a t ( D e s t Y ,   " 0 . 0 0 0 " ) 
 
 	 	 E n d I f 
 
 	 	 I f   J o g _ A c t i v e   =   0 
 
 	 	 	 R e t u r n 
 
 	 	 E n d I f 
 
 	 G o t o   J o g 2 
 
 R e t u r n 
 
 
 
 L a b e l     J O G   S T O P 
 
 	 B u t t o n   8   L a b e l   " J O G   w i t h   M o u s e " 
 
 	 J o g _ A c t i v e   =   0 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     J O G   w i t h   k e y b o a r d 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 L a b e l   E x e c K e y s 
 
 	 V a r i a b l e   N u m e r i c   K e y J o g _ S p e e d 
 
 	 V a r i a b l e   N u m e r i c   J o g S p e e d 
 
 	 J o g S p e e d   =   K e y J o g _ S p e e d   /   1 0 0 
 
 	 S e l e c t   T r u e 
 
 	 	 C a s e   K e y ( " S H I F T " ) 
 
 	 	 	 J o g S p e e d   =   J o g S p e e d   *   0 . 1 
 
 	 	 C a s e   K e y ( " C T R L " ) 
 
 	 	 	 J o g S p e e d   =   J o g S p e e d   *   0 . 0 1 
 
 	 	 C a s e   K e y ( " A L T " ) 
 
 	 	 	 J o g S p e e d   =   J o g S p e e d   *   0 . 0 0 1 
 
 	 E n d S e l e c t 
 
 	 ' 
 
 	 I f   K e y ( " R i g h t " ) 
 
 	 	 D e s t X   =   D e s t X   +   J o g S p e e d 
 
 	 E n d I f 
 
 	 I f   K e y ( " L e f t " ) 
 
 	 	 D e s t X   =   D e s t X   -   J o g S p e e d 
 
 	 E n d I f 
 
 	 ' 
 
 	 I f   K e y ( " U p " ) 
 
 	 	 D e s t Y   =   D e s t Y   +   J o g S p e e d 
 
 	 E n d I f 
 
 	 I f   K e y ( " D o w n " ) 
 
 	 	 D e s t Y   =   D e s t Y   -   J o g S p e e d 
 
 	 E n d I f 
 
 	 ' 
 
 	 ' I f   K e y ( " P a g e U p " ) 
 
 	 ' 	 S l o t   S l o t _ Z   =   L i m i t ( S l o t ( S l o t _ Z )   +   J o g S p e e d ,   Z m i n ,   Z m a x ) 
 
 	 ' E n d I f 
 
 	 ' I f   K e y ( " P a g e D o w n " ) 
 
 	 ' 	 S l o t   S l o t _ Z   =   L i m i t ( S l o t ( S l o t _ Z )   -   J o g S p e e d ,   Z m i n ,   Z m a x ) 
 
 	 ' E n d I f 
 
 	 ' 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 G o s u b   P r i n t V a l u e s 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     P R I N T   C O O R D I N A T E S 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 L a b e l   P r i n t V a l u e s 
 
 	 s 1   =               " D e s t X = "   +   F o r m a t ( D e s t X ,   " 0 . 0 0 0 " ) 
 
 	 s 1   =   s 1   +   "   D e s t Y = "   +   F o r m a t ( D e s t Y ,   " 0 . 0 0 0 " ) 
 
 	 P r i n t   C R L F   +   s 1 
 
 R e t u r n 
 
 
 
 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '           N a m e :   C o n t r o l _ 7 8 _ N e w H o m i n g . t x t                               D a t e :   0 8   S e t   2 0 2 0 
 
 '         A u t o r :   L e o n a r d o   D E   P A L O 
 
 '         S c o p e :   T e s t   C O R E X Y   f r o m   W i n g o 
 
 '   H a r d w a r e :   S t a n d a r d   M a s t e r . 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 
 
 O p t i o n   S p e e d   9 
 
 
 
 C O M   O p e n   1   1 1 5 2 0 0 
 
 
 
 S p e e d S e a r c h   =   - 0 . 3 3 3 3 	             '   d i r e c t i o n   a n d   s p e e d 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   O p t i o n s 
 
 K e y J o g _ S p e e d   =   1 0 0 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   S o f t w a r e   l i m i t s 
 
 D e s t x M a x   =       2 5 6 
 
 D e s t x M i n   =           5 
 
 D e s t y M a x   =       1 4 4 
 
 q q q   =           5 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   M O T O R S   A S S I G N E M E N T S 
 
 P O W E R _ I N               =   3 6 3 	 '   m a i n   p o w e r   p l u g   i n s e r t 
 
 P O W E R _ O U T             =   6 6 5         '   m a i n   p o w e r   p l u g   o u t 
 
 
 
 U S B 3 _ I N                 =   2 1 2 
 
 U S B 3 _ O U T               =   6 2 0 
 
 
 
 U S B C _ I N                 =   3 8 4 
 
 U S B C _ O U T               =   6 7 0 
 
 H D M I _ I N                 =   9 9 5 
 
 H D M I _ O U T               =   7 8 7 
 
 U S B P W R _ I N             =   2 0 5 
 
 U S B P W R _ O U T           =   4 7 0 
 
 O N O F F _ I N               =   7 5 0 
 
 O N O F F _ O U T             =   2 9 5 
 
 
 
 V O L U M E _ I N _ U P       =   6 9 7 
 
 V O L U M E _ O U T           =   7 5 4 
 
 V O L U M E _ I N _ D W       =   7 9 4 
 
 
 
 M E M O R Y _ I N             =   3 0 0 
 
 M E M O R Y _ O U T           =   6 0 4 
 
 H E A R S E T _ I N           =   8 6 5 
 
 H E A R S E T _ O U T         =   5 6 5 
 
 P E N _ D O W N               =   5 6 0 
 
 P E N _ U P                   =   1 8 9 
 
 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   S T E P P E R   S L O T S 
 
 S l o t _ M o t o r A                 =     1 	 	 	 ' 1 _ T a b T e s t e r X Y   p i n     1   S T E P P E R 
 
 S l o t _ M o t o r B                 =     3 	 	 	 ' 1 _ T a b T e s t e r X Y   p i n     3   S T E P P E R 
 
 S l o t _ S e n s o r X               =     7 	 	 	 ' 1 _ T a b T e s t e r X Y   p i n     7   D I G   I N P U 
 
 S l o t _ S e n s o r Y               =     8 	 	 	 ' 1 _ T a b T e s t e r X Y   p i n     8   D I G   I N P U 
 
 S l o t _ E n a b l e M o t o r s     =   1 0 	 	 	 ' 1 _ T a b T e s t e r X Y   p i n   1 0   D I G   O U T 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   D I G I T A L   M O T O R   S L O T S 
 
 S L O T _ U S B 3                     =   1 3   	 	 ' 2 _ T a b T e s t e r M o t   p i n   1   P W M 1 6 
 
 S L O T _ U S B C                     =   1 4                   ' 2 _ T a b T e s t e r M o t   p i n   2   P W M 1 6 
 
 S L O T _ H D M I                     =   1 5 	 	 	 ' 2 _ T a b T e s t e r M o t   p i n   3   P W M 1 6 
 
 S L O T _ U S B P W R                 =   1 6 	 	 	 ' 2 _ T a b T e s t e r M o t   p i n   4   P W M 1 6 
 
 S L O T _ O N O F F                   =   1 7 	 	 	 ' 2 _ T a b T e s t e r M o t   p i n   5   P W M 1 6 
 
 S L O T _ P O W E R   	 	       =   1 8 	 	 	 ' 2 _ T a b T e s t e r M o t   p i n   6   s o f t w a r e   c o n t r o l   S E R V O 1 6 
 
 S L O T _ V O L U M E                 =   2 5 	 	 	 ' 3 _ T a b T e s t e r M o t   p i n   1   P W M 1 6 
 
 S L O T _ M E M O R Y                 =   2 6 	 	 	 ' 3 _ T a b T e s t e r M o t   p i n   2   P W M 1 6 
 
 S L O T _ H E A R S E T               =   2 7 	 	 	 ' 3 _ T a b T e s t e r M o t   p i n   3   P W M 1 6 
 
 S L O T _ P E N                       =   2 9 	 	 	 ' 3 _ T a b T e s t e r M o t   p i n   4   P W M 1 6 
 
 S L O T _ R O T A T 	               =   2 8 	 	 	 ' 3 _ T a b T e s t e r M o t   p i n   5   P W M 1 6 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   T A B L E T   P O W E R 
 
 S L O T _ T a b l e t P o w e r       =     9                   '   1 0 0 0   =   T a b l e t   o n 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   R O T A T I O N   H / V 
 
 S l o t _ R o t H V _ D r i v e             =   2 8             ' 3 0 	 	 '   s l o t 
 
 S l o t _ R o t H V _ C u r r e n t         =   6 0             ' 3 1 	 	 '   s l o t 
 
 S l o t _ R o t H V _ M a x C u r r e n t   =   6 0 0 0         ' P e r i o d   f o r   t h e   m a x   c u r r e n t 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   S L O T S   F O R   S O U N D   T E S T S 
 
 S l o t _ R u n S c o p e                     =   3 7 
 
 S l o t _ S o u n d L e v e l                 =   4 1 
 
 S l o t _ S o u n d L e v e l 2 n d H a r m   =   4 3 
 
 S l o t _ S o u n d L e v e l 3 r d H a r m   =   4 5 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   J O G   W I T H   M O U S E 
 
 J o g _ R a n g e X                 =   2 5 6                 ' 2 8 8 
 
 J o g _ R a n g e Y                 =   1 4 4 
 
 J o g _ E n a b l e _ S l o t       =   3 4 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   C O L O R   R E C O G N I T I O N 
 
 S l o t _ S 0       =     2 4 
 
 S l o t _ S 1       =     2 3 
 
 S l o t _ S 2       =     2 1 
 
 S l o t _ S 3       =     2 0 
 
 S l o t _ F r e q   =     2 2 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   F I L E   S E T   U P 
 
 '   V a r i a b l e   S t r i n g   F i l e N a m e 
 
 '   F i l e N a m e   =   " T e s t _ R e s u l t s . t x t " 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   L O A D   A P P S 
 
 L o a d   T h e r e m i n o _ H A L \ T h e r e m i n o _ H A L . e x e 
 
 L o a d   T h e r e m i n o _ H A L \ T h e r e m i n o _ S l o t V i e w e r . e x e 
 
 
 
 ' L o a d   T h e r e m i n o _ M i c r o V i d e o \ T h e r e m i n o _ M i c r o V i d e o . e x e 
 
 ' L o a d   T h e r e m i n o _ A u d i o G e n e r a t o r \ T h e r e m i n o _ A u d i o G e n e r a t o r . e x e 
 
 ' L o a d   T h e r e m i n o _ A u d i o I n p u t \ T h e r e m i n o _ A u d i o I n p u t . e x e 
 
 ' L o a d   T h e r e m i n o _ H A L \ T h e r e m i n o _ S i g n a l S c o p e . e x e 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   K E Y S 
 
 K e y   R i g h t 	 	 G o s u b   E x e c K e y s 
 
 K e y   L e f t   	 	 G o s u b   E x e c K e y s 
 
 K e y   U p   	 	 	 G o s u b   E x e c K e y s 
 
 K e y   D o w n   	 	 G o s u b   E x e c K e y s 
 
 K e y   P a g e u p 	 	 G o s u b   P E N   U P 
 
 K e y   P a g e d o w n 	 G o s u b   P E N   D O W N 
 
 K e y   E n d           	 G o s u b   P E N   S I N G L E 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   S T A R T 
 
 L o a d   T o c . w a v 
 
 O p t i o n   S p e e d   9 
 
 
 
 S l o t   S l o t _ S 0   =   1 0 0 0 
 
 S l o t   S l o t _ S 1   =   1 0 0 0 
 
 
 
 ' W i n d o w   M i n S i z e 
 
 
 
 D e s t X   =   v 1 
 
 D e s t Y   =   v 2 
 
 
 
 G o s u b     V O L U M E   O U T 
 
 G o s u b     P E N   U P 
 
 G o s u b     M A I N   M E N U 
 
 
 
 S t o p 	 	 	 	 	 	 	 	 	 	 	 	 ' 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 V a r i a b l e   N u m e r i c   D e s t x M a x 
 
 V a r i a b l e   N u m e r i c   D e s t x M i n 
 
 V a r i a b l e   N u m e r i c   D e s t y M a x 
 
 V a r i a b l e   N u m e r i c   q q q 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 L a b e l     C L E A R   B U T T O N S 
 
 	 F o r   v 1   =   1   T o   3 2 
 
 	 	 B u t t o n   v 1   T e x t   " " 
 
 	 	 B u t t o n   v 1   C o l o r   M o c c a s i n 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 L a b e l     C L O S E   A L L 
 
 	 L o a d   C l o s e A p p s 
 
 R e t u r n 
 
 
 
 L a b e l   E v e n t S t o p 
 
 	 W i n d o w   S i z a b l e 
 
 E n d 
 
 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 '       M E N U 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 L a b e l     M A I N   M E N U 
 
 	 G o s u b     C L E A R   B U T T O N S 
 
 	 B u t t o n   1   L a b e l     D I S P L A Y 
 
 	 B u t t o n   1   C o l o r   S k y B l u e 
 
 	 B u t t o n   2   L a b e l     T O U C H 
 
 	 B u t t o n   2   C o l o r   L i g h t S t e e l B l u e 
 
 	 B u t t o n   3   L a b e l     A U D I O 
 
 	 B u t t o n   3   C o l o r   L i g h t G r e e n 
 
 	 
 
 	 B u t t o n   4   L a b e l     P L U G 
 
 	 B u t t o n   4   C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   5   L a b e l     W i - F i 
 
 	 B u t t o n   5   C o l o r   H o t P i n k 
 
 	 B u t t o n   6   L a b e l     B L U E T O O T H 
 
 	 B u t t o n   6   C o l o r   R o y a l B l u e 
 
 	 B u t t o n   7   L a b e l     P O W E R 
 
 	 B u t t o n   7   C o l o r   C h o c o l a t e 
 
 	 B u t t o n   8   L a b e l     V I R T U A L   K e y 
 
 	 B u t t o n   8   C o l o r   S l a t e G r a y 
 
 	 B u t t o n   9   L a b e l     M E C H A N I C A L 
 
 	 B u t t o n   9   C o l o r   G a i n s b o r o 
 
 	 B u t t o n   1 0   L a b e l     M I S C E L L A N E A 
 
 	 B u t t o n   1 0   C o l o r   D a r k C y a n 
 
 	 
 
 	 B u t t o n   1 5   L a b e l     C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l   D I S P L A Y 
 
 	 G o s u b     C L E A R   B U T T O N S 
 
 	 B u t t o n   1     L a b e l     L U M I N O S I T Y 
 
 	 B u t t o n   1     C o l o r   S k y B l u e 
 
 	 B u t t o n   2     L a b e l     R E D 
 
 	 B u t t o n   2     C o l o r   R e d 
 
 	 B u t t o n   3     L a b e l     G R E E N 
 
 	 B u t t o n   3     C o l o r   G r e e n 
 
 	 B u t t o n   4     L a b e l     B L U 
 
 	 B u t t o n   4     C o l o r   B l u e 
 
 	 B u t t o n   5     L a b e l     W H I T E 
 
 	 B u t t o n   5     C o l o r   W h i t e 
 
 	 B u t t o n   6     L a b e l     B I T M A P 
 
 	 B u t t o n   6     C o l o r   S k y B l u e 
 
 	 B u t t o n   7     L a b e l     P H O T O 
 
 	 B u t t o n   7     C o l o r   S k y B l u e 
 
 	 B u t t o n   8     L a b e l     V I D E O 
 
 	 B u t t o n   8     C o l o r   S k y B l u e 
 
 	 B u t t o n   9     L a b e l     N O   C o l o r 
 
 	 B u t t o n   9     C o l o r   S k y B l u e 
 
 	 B u t t o n   1 0   L a b e l     C o l o r   T E S T 
 
 	 B u t t o n   1 0   C o l o r   S k y B l u e 
 
 	 ' B u t t o n   1 1   T e x t     - - - - - - - - 
 
 	 ' B u t t o n   1 1   C o l o r   S k y B l u e 
 
 	 B u t t o n   1 2   L a b e l     T O U C H   T E S T 
 
 	 B u t t o n   1 2   C o l o r   S k y B l u e 
 
 	 B u t t o n   1 3   L a b e l     C o l o r   R E C O G N I T I O N 
 
 	 B u t t o n   1 3   C o l o r   S k y B l u e 
 
 	 
 
 	 B u t t o n   1 4   L a b e l     M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   L a b e l     C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l     T O U C H 
 
 	 G o s u b     C L E A R   B U T T O N S 
 
 	 B u t t o n   1   L a b e l     P E N   U P 
 
 	 B u t t o n   1   C o l o r   L i g h t S t e e l B l u e 
 
 	 B u t t o n   2   L a b e l     P E N   D O W N 
 
 	 B u t t o n   2   C o l o r   L i g h t S t e e l B l u e 
 
 	 B u t t o n   3   L a b e l     P E N   S I N G L E 
 
 	 B u t t o n   3   C o l o r   L i g h t S t e e l B l u e 
 
 	 B u t t o n   4   L a b e l     P E N   D O U B L E 
 
 	 B u t t o n   4   C o l o r   L i g h t S t e e l B l u e 
 
 	 B u t t o n   5   L a b e l     S L I D E 
 
 	 B u t t o n   5   C o l o r   L i g h t S t e e l B l u e 
 
 	 B u t t o n   6   L a b e l     S L I D E   P S W 
 
 	 B u t t o n   6   C o l o r   L i g h t S t e e l B l u e 
 
 	 B u t t o n   7   L a b e l     T O U C H   T E S T 
 
 	 B u t t o n   7   C o l o r   L i g h t S t e e l B l u e 
 
 	 B u t t o n   8   L a b e l     J O G   w i t h   M o u s e 
 
 	 B u t t o n   8   C o l o r   L i g h t S t e e l B l u e 
 
 	 B u t t o n   1 0   L a b e l     S t a r t   W X M   A p p T a b l e t 
 
 	 B u t t o n   1 0   C o l o r   L i g h t S t e e l B l u e 
 
 	 
 
 	 B u t t o n   1 4   L a b e l     M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   L a b e l     C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l     A U D I O 
 
 	 G o s u b     C L E A R   B U T T O N S 
 
 	 B u t t o n   1   L a b e l     H E A R S E T   I N 
 
 	 B u t t o n   1   C o l o r   L i g h t G r e e n 
 
 	 B u t t o n   2   L a b e l     H E A R S E T   O U T 
 
 	 B u t t o n   2   C o l o r   L i g h t G r e e n 
 
 	 B u t t o n   3   L a b e l     V O L U M E   O U T 
 
 	 B u t t o n   3   C o l o r   L i g h t G r e e n 
 
 	 B u t t o n   4   L a b e l     V O L U M E   U P 
 
 	 B u t t o n   4   C o l o r   L i g h t G r e e n 
 
 	 B u t t o n   5   L a b e l     V O L U M E   D W 
 
 	 B u t t o n   5   C o l o r   L i g h t G r e e n 
 
 	 B u t t o n   6   L a b e l     V O L U M E   T E S T 
 
 	 B u t t o n   6   C o l o r   L i g h t G r e e n 
 
 	 B u t t o n   7   L a b e l     S P E A K . D I S T . 
 
 	 B u t t o n   7   C o l o r   L i g h t G r e e n 
 
 	 B u t t o n   8   L a b e l     T e s t H e a r s e t 
 
 	 B u t t o n   8   C o l o r   L i g h t G r e e n 
 
 	 
 
 	 B u t t o n   1 4   L a b e l     M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   L a b e l     C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l     P L U G 
 
 	 G o s u b     C L E A R   B U T T O N S 
 
 	 B u t t o n   1   L a b e l     P O W E R   I N 
 
 	 B u t t o n   1   C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   2   L a b e l     P O W E R   O U T 
 
 	 B u t t o n   2   C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   3     L a b e l     M E M O R Y   I N 
 
 	 B u t t o n   3     C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   4     L a b e l     M E M O R Y   O U T 
 
 	 B u t t o n   4     C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   5     L a b e l     U S B 3   I N 
 
 	 B u t t o n   5     C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   6     L a b e l     U S B 3   O U T 
 
 	 B u t t o n   6     C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   7     L a b e l     U S B C   I N 
 
 	 B u t t o n   7     C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   8     L a b e l     U S B C   O U T 
 
 	 B u t t o n   8     C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   9     L a b e l     H D M I   I N 
 
 	 B u t t o n   9     C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   1 0     L a b e l     H D M I   O U T 
 
 	 B u t t o n   1 0     C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   1 1     L a b e l     H E A R S E T   I N 
 
 	 B u t t o n   1 1     C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   1 2     L a b e l     H E A R S E T   O U T 
 
 	 B u t t o n   1 2   C o l o r   M e d i u m A q u a m a r i n e 
 
 	 
 
 	 B u t t o n   1 4   L a b e l     M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   L a b e l     C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l     W i - F i 
 
 	 G o s u b     C L E A R   B U T T O N S 
 
 	 B u t t o n   1   L a b e l     E M P T Y   1 
 
 	 B u t t o n   1   C o l o r   H o t P i n k 
 
 	 B u t t o n   2   L a b e l     E M P T Y   2 
 
 	 B u t t o n   2   C o l o r   H o t P i n k 
 
 	 B u t t o n   3   L a b e l     E M P T Y   3 
 
 	 B u t t o n   3   C o l o r   H o t P i n k 
 
 	 
 
 	 B u t t o n   1 4   L a b e l     M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   L a b e l     C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l     B L U E T O O T H 
 
 	 G o s u b     C L E A R   B U T T O N S 
 
 	 B u t t o n   1   L a b e l     E M P T Y   1 
 
 	 B u t t o n   1   C o l o r   R o y a l B l u e 
 
 	 B u t t o n   2   L a b e l     E M P T Y   2 
 
 	 B u t t o n   2   C o l o r   R o y a l B l u e 
 
 	 B u t t o n   3   L a b e l     E M P T Y   3 
 
 	 B u t t o n   3   C o l o r   R o y a l B l u e 
 
 	 
 
 	 B u t t o n   1 4   L a b e l     M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   L a b e l     C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l     P O W E R 
 
 	 G o s u b     C L E A R   B U T T O N S 
 
 	 B u t t o n   1   L a b e l     P O W E R   I N 
 
 	 B u t t o n   1   C o l o r   C h o c o l a t e 
 
 	 B u t t o n   2   L a b e l     P O W E R   O U T 
 
 	 B u t t o n   2   C o l o r   C h o c o l a t e 
 
 	 B u t t o n   4   L a b e l     P O W E R   O N 
 
 	 B u t t o n   4   C o l o r   Y e l l o w 6 
 
 	 B u t t o n   5   L a b e l     P O W E R   O F F 
 
 	 B u t t o n   5   C o l o r   Y e l l o w 6 
 
 	 
 
 	 B u t t o n   1 4   L a b e l     M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   L a b e l     C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l     V I R T U A L   K E Y 
 
 	 G o s u b     C L E A R   B U T T O N S 
 
 	 B u t t o n   1   L a b e l     N U M B E R 
 
 	 B u t t o n   1   C o l o r   S l a t e G r a y 
 
 	 B u t t o n   2   L a b e l     A L P H A B E T 
 
 	 B u t t o n   2   C o l o r   S l a t e G r a y 
 
 	 B u t t o n   3   L a b e l      $ % *   & [ @ ) ^ ! 
 
 	 B u t t o n   3   C o l o r   S l a t e G r a y 
 
 	 B u t t o n   5   L a b e l     P S   S E Q U E N C E S 
 
 	 B u t t o n   5   C o l o r   S l a t e G r a y 
 
 	 B u t t o n   6   L a b e l     G e t - S e r v i c e 
 
 	 B u t t o n   6   C o l o r   S l a t e G r a y 
 
 	 B u t t o n   7   L a b e l     W i n 1 0   u p d a t e   h i s t o r y 
 
 	 B u t t o n   7   C o l o r   S l a t e G r a y 
 
 	 B u t t o n   8   L a b e l     G e t S y s t e m I n f o 
 
 	 B u t t o n   8   C o l o r   S l a t e G r a y 
 
 	 
 
 	 B u t t o n   1 4   L a b e l     M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   L a b e l     C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 
 
 L a b e l     M E C H A N I C A L 
 
 	 G o s u b     C L E A R   B U T T O N S 
 
 	 B u t t o n   1   L a b e l     Z E R O 
 
 	 B u t t o n   1   C o l o r   G a i n s b o r o 
 
 	 B u t t o n   2   L a b e l     E N A B . M O T O R S 
 
 	 B u t t o n   2   C o l o r   G a i n s b o r o 
 
 	 B u t t o n   3   L a b e l     D I S A B . M O T O R S 
 
 	 B u t t o n   3   C o l o r   G a i n s b o r o 
 
 	 B u t t o n   4   L a b e l     R O T A T E   V E R T 
 
 	 B u t t o n   4   C o l o r   G a i n s b o r o 
 
 	 B u t t o n   5   L a b e l     R O T A T E   H O R Z 
 
 	 B u t t o n   5   C o l o r   G a i n s b o r o 
 
 	 B u t t o n   6   L a b e l     R O T A T E   M I D L 
 
 	 B u t t o n   6   C o l o r   G a i n s b o r o 
 
 	 B u t t o n   7   L a b e l     B u t t o n   F A S T 
 
 	 B u t t o n   7   C o l o r   G a i n s b o r o 
 
 	 
 
 	 B u t t o n   9   L a b e l     B U R N   I N   7 - 2 4 
 
 	 B u t t o n   9   C o l o r   G a i n s b o r o 
 
 	 
 
 	 B u t t o n   1 4   L a b e l     M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   L a b e l     C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l     M I S C E L L A N E A 
 
 	 G o s u b     C L E A R   B U T T O N S 
 
 	 B u t t o n   1   L a b e l     S T A N D   B Y 
 
 	 B u t t o n   1   C o l o r   D a r k C y a n 
 
 	 B u t t o n   2   L a b e l     S A F E   R E M O V E 
 
 	 B u t t o n   2   C o l o r   D a r k C y a n 
 
 	 B u t t o n   3   L a b e l     A L L   I N 
 
 	 B u t t o n   3   C o l o r   D a r k C y a n 
 
 	 B u t t o n   4   L a b e l     A L L   O U T 
 
 	 B u t t o n   4   C o l o r   D a r k C y a n 
 
 	 B u t t o n   5   L a b e l     V   K E Y B O A R D 
 
 	 B u t t o n   5   C o l o r   D a r k C y a n 
 
 	 B u t t o n   6   L a b e l     J O G   w i t h   M o u s e 
 
 	 B u t t o n   6   C o l o r   D a r k C y a n 
 
 	 B u t t o n   7   L a b e l     C A L I B R A T E 
 
 	 B u t t o n   7   C o l o r   D a r k C y a n 
 
 	 B u t t o n   8   L a b e l     U S B P W R   I N 
 
 	 B u t t o n   8   C o l o r   D a r k C y a n 
 
 	 B u t t o n   9   L a b e l     U S B P W R   O U T 
 
 	 B u t t o n   9   C o l o r   D a r k C y a n 
 
 	 
 
 	 B u t t o n   1 1   L a b e l     G e t S y s t e m I n f o 
 
 	 B u t t o n   1 1   C o l o r   D a r k C y a n 
 
 	 
 
 	 B u t t o n   1 4   L a b e l     M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   L a b e l     C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l     N U M B E R 
 
 	 P r e s s K e y s   A L T   T a b 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 s 1   =     " S P A C E " 
 
 	 P r e s s K e y s   s 1 
 
 	 P r e s s K e y s   1   2   3   4   5   6   7   8   9   0   E n t e r 
 
 R e t u r n 
 
 
 
 L a b e l     A L P H A B E T 
 
 	 P r e s s K e y s   A L T   T a b 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 P r e s s K e y s   A   B   C   D   E   F   G   H   I   J   K   L   M   N   O   P   Q   R   S   T   U   V   W   X   Y   Z   E n t e r 
 
 	 P r e s s K e y s   B   C   C     E n t e r 
 
 R e t u r n 
 
 
 
 L a b e l      $ % *   & [ @ ) ^ ! 
 
 	 ' P r e s s K e y   S p a c e 
 
 	 P r e s s K e y s   W I N D O W S   X 
 
 	 W a i t   S e c o n d s   2 
 
 R e t u r n 
 
 
 
 L a b e l     P S   S E Q U E N C E S 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ D i r . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 L a b e l     G e t - S e r v i c e 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ G e t - S e r v i c e . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 L a b e l     W i n 1 0   u p d a t e   h i s t o r y 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ W i n 1 0 - u p d a t e - h i s t o r y . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 L a b e l     G e t S y s t e m I n f o 
 
 	 C O M   D i s c a r d O u t B u f f e r 
 
 	 C O M   W r i t e S t r i n g   " S e n d S y s t e m I n f o "   +   C R L F 
 
 	 F i l e N a m e   =   " i n f o . c s v " 
 
 	 G o s u b   R e c e i v e F i l e F r o m C O M 
 
 R e t u r n 
 
 
 
 
 
 L a b e l     L U M I N O S I T Y 
 
 	 B u t t o n   1   C o l o r   F l a s h i n g 8   B l a c k   G r a y 5 
 
 	 B e e p 
 
 	 W a i t   K e y ( " S p a c e " ) 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ L u m i n o s i t y B i g P e n . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 	 B u t t o n   1   C o l o r   S k y B l u e 
 
 R e t u r n 
 
 
 
 L a b e l     V   K E Y B O A R D 
 
 	 B e e p 
 
 	 W a i t   K e y ( " S p a c e " ) 
 
 	 B u t t o n   2 9   C o l o r   F l a s h i n g 8   B l u e 9     C y a n 9 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ V i r t u a l K e y b o a r d . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 	 W a i t   S e c o n d s   2 
 
 	 B u t t o n   2 9   C o l o r   M e d i u m B l u e 
 
 R e t u r n 
 
 
 
 L a b e l     R E D 
 
 	 C O M   W r i t e S t r i n g       " R E D "   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l     G R E E N 
 
 	 C O M   W r i t e S t r i n g     " G R E E N "   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l     B L U 
 
 	 C O M   W r i t e S t r i n g   " B L U "   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l     W H I T E 
 
 	 C O M   W r i t e S t r i n g     " W H I T E "   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l     N O   C O L O R 
 
 	 C O M   W r i t e S t r i n g   " N O   C O L O R "   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l     B I T M A P 
 
 	 C O M   W r i t e S t r i n g   " B I T M A P "   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l     P H O T O 
 
 	 C O M   W r i t e S t r i n g   " P H O T O "   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l     V I D E O 
 
 	 C O M   W r i t e S t r i n g   " V I D E O "   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l     S T A N D   B Y 
 
 	 G o s u b     Z E R O 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ S a f e R e m o v e . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 	 G o s u b     P O W E R   I N 
 
 	 G o s u b     U S B 3   I N 
 
 	 G o s u b     M E M O R Y   I N 
 
 	 G o s u b     U S B C   O U T 
 
 	 G o s u b     H D M I   O U T 
 
 	 G o s u b     U S B P W R   O U T 
 
 	 G o s u b     H E A R S E T   O U T 
 
 	 G o s u b     O N O F F   O U T 
 
 	 G o s u b     V O L U M E   O U T 
 
 	 G o s u b     D I S A B . M O T O R S 
 
 R e t u r n 
 
 
 
 L a b e l     A L L   I N 
 
 	 G o s u b     P O W E R   I N 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     U S B 3   I N 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     U S B C   I N 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     H D M I   I N 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     U S B P W R   I N 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     H E A R S E T   I N 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     M E M O R Y   I N 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 ' G o s u b     O N O F F   I N 
 
 	 ' G o s u b     V O L U M E   I N _ U P 
 
 	 ' W a i t   S e c o n d s   0 . 5 
 
 	 G o s u b     V O L U M E   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 R e t u r n 
 
 
 
 L a b e l     A L L   O U T 
 
 	 G o s u b     P O W E R   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     U S B 3   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     U S B C   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     H D M I   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     U S B P W R   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     H E A R S E T   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     M E M O R Y   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     O N O F F   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 ' G o s u b     V O L U M E   I N _ D W 
 
 	 ' W a i t   S e c o n d s   0 . 5 
 
 	 G o s u b     V O L U M E   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 R e t u r n 
 
 
 
 L a b e l   M U L T I 
 
 	 v 2   =   I n p u t   "   H o w   m a n y   l o o p s ?   " 
 
 	 I f   v 2   =   0 
 
 	 	 v 2   =   1 0 
 
 	 E n d I f 
 
 	 F o r   v 1   =   1   T o   v 2 
 
 	 	 s 1   =   N o w 
 
 	 	 s 1   =   s 1   +   "           C y c l e   i n   p r o g r e s s   =   "   +   v 1 
 
 	 	 s 1   =   s 1   +   "           C y c l e   t o   d o   =   "   +   v 2 
 
 	 	 P r i n t   s 1 
 
 	 	 ' G o s u b   R U N   T E S T 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 L a b e l     S A F E   R E M O V E 
 
 	 G o s u b     Z E R O 
 
 	 G o s u b     P O W E R   O U T 
 
 	 G o s u b     U S B 3   O U T 
 
 	 G o s u b     U S B C   O U T 
 
 	 G o s u b     H D M I   O U T 
 
 	 G o s u b     U S B P W R   O U T 
 
 	 G o s u b     H E A R S E T   O U T 
 
 	 G o s u b     O N O F F   O U T 
 
 	 G o s u b     V O L U M E   O U T 
 
 	 G o s u b     M E M O R Y   O U T 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ S a f e R e m o v e . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 L a b e l     B U T T O N   F A S T 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ B u t t o n F a s t . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 L a b e l     B U R N   I N   7 - 2 4 
 
 	 F o r   v 9   =   1   T o   1 0 0 0 0 
 
 	 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ B u r n I n 7 - 2 4 . s e q " 
 
 	 	 G o s u b   E x e c S e q u e n c e 
 
 	 	 P r i n t   " C y c l e   n u m b e r : "   +   v 9 
 
 ' 	 	 W a i t   S e c o n d s   1 . 5 
 
 	 	 S l o t ( 1 0 0 )   =   S l o t ( 1 0 0 )   +   1 
 
 	 	 B e e p 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 L a b e l     C A L I B R A T E 
 
 	 ' B e e p 
 
 	 ' W a i t   K e y ( " S p a c e " ) 
 
 	 G o s u b     Z E R O 
 
 	 ' S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ C a l i b r a t e . s e q " 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ S p e e d T e s t . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '       A U D I O   T E S T S 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   S l o t _ R u n S c o p e 
 
 V a r i a b l e   N u m e r i c   S l o t _ S o u n d L e v e l 
 
 V a r i a b l e   N u m e r i c   S l o t _ S o u n d L e v e l 2 n d H a r m 
 
 V a r i a b l e   N u m e r i c   S l o t _ S o u n d L e v e l 3 r d H a r m 
 
 V a r i a b l e   N u m e r i c   S o u n d L e v e l M i n 
 
 V a r i a b l e   N u m e r i c   S o u n d N o i s e M a x 
 
 V a r i a b l e   N u m e r i c   S o u n d D i s t 2 n d H a r m M a x   '   M a x   l e v e l   f o r   t h e   2 n d   h a r m o n i c s 
 
 V a r i a b l e   N u m e r i c   S o u n d D i s t 3 r d H a r m M a x   '   M a x   l e v e l   f o r   t h e   3 r d   h a r m o n i c s 
 
 
 
 L a b e l   S P E A K . D I S T . 
 
 	 W i n d o w   M i n S i z e 
 
 	 W a i t   K e y ( " S p a c e " ) 
 
 	 B u t t o n   2 5   C o l o r   F l a s h i n g 8   G o l d   D a r k G r e e n 
 
 	 S o u n d L e v e l M i n   =   6 5 0 
 
 	 S o u n d N o i s e M a x   =   3 5 0 
 
 	 S o u n d D i s t 2 n d H a r m M a x   =   4 0 0 
 
 	 S o u n d D i s t 3 r d H a r m M a x   =   4 0 0 
 
 	 G o s u b   A u d i o T e s t 
 
 	 W i n d o w   S i z a b l e 
 
 	 B u t t o n   2 5   C o l o r   L i g h t S t e e l B l u e 
 
 	 ' G o s u b   E v e n t S t o p 
 
 R e t u r n 
 
 
 
 L a b e l     T e s t H e a r s e t 
 
 	 W i n d o w   M i n S i z e 
 
 	 B u t t o n   2 6   C o l o r   F l a s h i n g 8   G o l d   D a r k G r e e n 
 
 	 S o u n d L e v e l M i n   =   5 0 
 
 	 S o u n d N o i s e M a x   =   3 0 
 
 	 G o s u b   A u d i o T e s t 
 
 	 W i n d o w   S i z a b l e 
 
 	 B u t t o n   2 6   C o l o r   L i g h t S t e e l B l u e 
 
 	 G o s u b   E v e n t S t o p 
 
 R e t u r n 
 
 
 
 L a b e l   A u d i o T e s t 
 
 	 ' G o s u b   " Z E R O " 
 
 	 S l o t   3 9   =   1 0 0 0                             ' < < < < < < < < < < < < < <   m a n u a l   s o u n d   s t a r t 
 
         ' B e e p 
 
 	 ' w a i t   S e c o n d s   2 
 
 	 ' W a i t   K e y ( " S p a c e " ) 
 
 	 s 1   =   " " 
 
 	 ' - - - - - - - - - - - - - - - - - - - - - -   t e s t   a u d i o   l e f t 
 
 	 D e s t X   =   0 1 4 
 
 	 D e s t Y   =   1 0 8 . 8 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 G o s u b     P E N   S I N G L E 
 
 	 W a i t   S e c o n d s   0 . 8 
 
 	 S l o t   S l o t _ R u n S c o p e   =   1 0 0 0 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l ) 
 
 	 I f   v 1   <   S o u n d L e v e l M i n 
 
 	 	 s 1   =   s 1   +   " E R R O R :   L e f t   l e v e l   t o o   l o w "   +   C R L F 
 
 	 E n d I f 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l 2 n d H a r m ) 
 
 	 I f   v 1   >   S o u n d D i s t 2 n d H a r m M a x 
 
 	 	 s 1   =   s 1   +   " E R R O R :   L e f t   s p e a k e r .   T o o   m u c h   d i s t o r t i o n   o n   t h e   2 n d   h a r m o n i c s "   +   C R L F 
 
 	 E n d I f 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l 3 r d H a r m ) 
 
 	 I f   v 1   >   S o u n d D i s t 3 r d H a r m M a x 
 
 	 	 s 1   =   s 1   +   " E R R O R :   L e f t   s p e a k e r .   T o o   m u c h   d i s t o r t i o n   o n   t h e   3 r d   h a r m o n i c s "   +   C R L F 
 
 	 E n d I f 
 
 	 S l o t   S l o t _ R u n S c o p e   =   0 
 
 	 
 
 	 ' - - - - - - - - - - - - - - - - - - - - - -   t e s t   a u d i o   r i g h t 
 
 	 D e s t X   =   0 1 4 
 
 	 D e s t Y   =   1 0 2 . 5 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 G o s u b     P E N   S I N G L E 
 
 	 W a i t   S e c o n d s   0 . 8 
 
 	 S l o t   S l o t _ R u n S c o p e   =   1 0 0 0 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l ) 
 
 	 I f   v 1   <   S o u n d L e v e l M i n 
 
 	 	 s 1   =   s 1   +   " E R R O R :   R i g h t   l e v e l   t o o   l o w "   +   C R L F 
 
 	 E n d I f 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l 2 n d H a r m ) 
 
 	 I f   v 1   >   S o u n d D i s t 2 n d H a r m M a x 
 
 	 	 s 1   =   s 1   +   " E R R O R :   R i g h t   s p e a k e r .   T o o   m u c h   d i s t o r t i o n   o n   t h e   2 n d   h a r m o n i c s "   +   C R L F 
 
 	 E n d I f 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l 3 r d H a r m ) 
 
 	 I f   v 1   >   S o u n d D i s t 3 r d H a r m M a x 
 
 	 	 s 1   =   s 1   +   " E R R O R :   R i g h t   s p e a k e r .   T o o   m u c h   d i s t o r t i o n   o n   t h e   3 r d   h a r m o n i c s "   +   C R L F 
 
 	 E n d I f 
 
 	 S l o t   S l o t _ R u n S c o p e   =   0 
 
 	 
 
 	 S l o t   3 9   =   0                                   ' < < < < < < < < < < < < < <   m a n u a l   s o u n d   s t o p 
 
 	 
 
 	 ' - - - - - - - - - - - - - - - - - - - - - -   t e s t   a u d i o   n o   s o u n d   l e f t / r i g h t 
 
 	 D e s t X   =   0 1 4 
 
 	 D e s t Y   =   0 9 6 . 2 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 G o s u b     P E N   S I N G L E 
 
 	 W a i t   S e c o n d s   0 . 8 
 
 	 S l o t   S l o t _ R u n S c o p e   =   1 0 0 0 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l ) 
 
 	 I f   v 1   >   S o u n d N o i s e M a x 
 
 	 	 s 1   =   s 1   +   " E R R O R :   T o o   m u c h   n o i s e "   +   C R L F 
 
 	 E n d I f 
 
 	 S l o t   S l o t _ R u n S c o p e   =   0 
 
 	 
 
 	 I f   s 1   =   " " 
 
 	 	 s 1   =   " T E S T   P A S S E D   O K " 
 
 	 E n d I f 
 
 	 P r i n t   s 1 
 
 R e t u r n 
 
 
 
 L a b e l     V O L U M E   T E S T 
 
 	 ' G o s u b   " Z E R O " 
 
 	 W i n d o w   M i n S i z e 
 
 	 B u t t o n   2 4   C o l o r   F l a s h i n g 8   L i g h t S t e e l B l u e   D a r k G r e e n 
 
 	 S o u n d L e v e l M i n   =   6 5 0 
 
 	 S o u n d N o i s e M a x   =   3 5 0 
 
 	 G o s u b   V o l u m e T e s t 
 
 	 W i n d o w   S i z a b l e 
 
 	 B u t t o n   2 4   C o l o r   L i g h t S t e e l B l u e 
 
 	 ' S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ S a f e R e m o v e . s e q " 
 
 	 ' G o s u b   E x e c S e q u e n c e 
 
 	 G o s u b     S T A N D   B Y 
 
 	 G o s u b   E v e n t S t o p 
 
 R e t u r n 
 
 
 
 L a b e l   V o l u m e T e s t 
 
 	 ' B e e p 
 
 	 ' w a i t   S e c o n d s   2 
 
 	 ' W a i t   K e y ( " S p a c e " ) 
 
 	 s 1   =   " " 
 
 	 ' - - - - - - - - - - - - - - - - - - - - - -   t e s t   a u d i o   v o l u m e   l e v e l   h i g h 
 
 	 G o s u b     V O L U M E   U P 
 
 	 W a i t   S e c o n d s   4 
 
 	 G o s u b     V O L U M E   O U T 
 
 	 S l o t   3 9   =   1 0 0 0                             ' < < < < < < < < < < < < < <   m a n u a l   s o u n d   s t a r t 
 
 	 W a i t   S e c o n d s   0 . 8 
 
 	 S l o t   S l o t _ R u n S c o p e   =   1 0 0 0 
 
 	 W a i t   S e c o n d s   0 . 2 3 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l ) 
 
 	 I f   v 1   <   S o u n d L e v e l M i n 
 
 	 	 s 1   =   s 1   +   " E R R O R :   L e f t   l e v e l   t o o   l o w "   +   C R L F 
 
 	 E n d I f 
 
 	 S l o t   S l o t _ R u n S c o p e   =   0 
 
 	 ' S l o t   3 9   =   0                                   ' < < < < < < < < < < < < < <   m a n u a l   s o u n d   s t o p 
 
 	 
 
 	 ' - - - - - - - - - - - - - - - - - - - - - -   t e s t   a u d i o   n o   s o u n d   l e f t / r i g h t 
 
 	 G o s u b     V O L U M E   D W 
 
 	 W a i t   S e c o n d s   4 
 
 	 G o s u b     V O L U M E   O U T 
 
 	 ' S l o t   3 9   =   1 0 0 0                             ' < < < < < < < < < < < < < <   m a n u a l   s o u n d   s t a r t 
 
 	 W a i t   S e c o n d s   0 . 8 
 
 	 S l o t   S l o t _ R u n S c o p e   =   1 0 0 0 
 
 	 W a i t   S e c o n d s   0 . 2 3 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l ) 
 
 	 I f   v 1   >   S o u n d N o i s e M a x 
 
 	 	 s 1   =   s 1   +   " E R R O R :   T o o   m u c h   n o i s e "   +   C R L F 
 
 	 E n d I f 
 
 	 S l o t   S l o t _ R u n S c o p e   =   0 
 
 	 S l o t   3 9   =   0                                   ' < < < < < < < < < < < < < <   m a n u a l   s o u n d   s t o p 
 
 	 I f   s 1   =   " " 
 
 	 	 s 1   =   " T E S T   P A S S E D   O K " 
 
 	 E n d I f 
 
 	 P r i n t   s 1 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     C O L O R   R E C O G N I T I O N 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   S l o t _ S 0 
 
 V a r i a b l e   N u m e r i c   S l o t _ S 1 
 
 V a r i a b l e   N u m e r i c   S l o t _ S 2 
 
 V a r i a b l e   N u m e r i c   S l o t _ S 3 
 
 V a r i a b l e   N u m e r i c   S l o t _ F r e q 
 
 
 
 L a b e l     C O L O R   T E S T 
 
 	 F i l e H e a d e r T e s t N a m e   =   " C O L O R   T E S T " 
 
 	 G o s u b   W r i t e F i l e H e a d e r 
 
 	 B e e p 
 
 	 W a i t   K e y ( " S p a c e " ) 
 
 	 B u t t o n   1 0   C o l o r   F l a s h i n g 8   R e d   S k y B l u e 
 
 	 
 
 	 G o s u b   R E D 
 
 	 W a i t   S e c o n d s   1 
 
 	 G o s u b     C O L O R   R E C O G N I T I O N 
 
 	 I f   s 1   =   " R E D " 
 
 	 	 s 1   =   " R e d   c o l o r   =   P a s s e d " 
 
 	 E l s e 
 
 	 	 s 1   =   " R e d   c o l o r   =   F a i l " 
 
 	 E n d I f 
 
 	 S a v e   S t r i n g T o F i l e   s 1   F i l e N a m e 
 
 	 
 
 	 G o s u b   G R E E N 
 
 	 W a i t   S e c o n d s   1 
 
 	 G o s u b     C O L O R   R E C O G N I T I O N 
 
 	 I f   s 1   =   " G R E E N " 
 
 	 	 s 1   =   " G r e e n   c o l o r   =   P a s s e d " 
 
 	 E l s e 
 
 	 	 s 1   =   " G r e e n   c o l o r   =   F a i l " 
 
 	 E n d I f 
 
 	 S a v e   S t r i n g T o F i l e   s 1   F i l e N a m e 
 
 	 
 
 	 G o s u b   B L U 
 
 	 W a i t   S e c o n d s   1 
 
 	 G o s u b     C O L O R   R E C O G N I T I O N 
 
 	 I f   s 1   =   " B L U " 
 
 	 	 s 1   =   " B l u   c o l o r   =   P a s s e d " 
 
 	 E l s e 
 
 	 	 s 1   =   " B l u   c o l o r   =   F a i l " 
 
 	 E n d I f 
 
 	 S a v e   S t r i n g T o F i l e   s 1   F i l e N a m e 
 
 	 
 
 	 B u t t o n   1 0   C o l o r   S k y B l u e 
 
 	 
 
 	 G o s u b     N O   C O L O R 
 
 R e t u r n 
 
 
 
 L a b e l     C O L O R   R E C O G N I T I O N 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - -   R E D   f i l t e r 
 
 	 S l o t   S l o t _ S 2   =   0 
 
 	 S l o t   S l o t _ S 3   =   0 
 
 	 W a i t   S e c o n d s   0 . 1 
 
 	 v 1   =   S l o t ( S l o t _ F r e q ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - -   G R E E N   f i l t e r 
 
 	 S l o t   S l o t _ S 2   =   1 0 0 0 
 
 	 S l o t   S l o t _ S 3   =   1 0 0 0 
 
 	 W a i t   S e c o n d s   0 . 1 
 
 	 v 2   =   S l o t ( S l o t _ F r e q ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - -   B L U   f i l t e r 
 
 	 S l o t   S l o t _ S 2   =   0 
 
 	 S l o t   S l o t _ S 3   =   1 0 0 0 
 
 	 W a i t   S e c o n d s   0 . 1 
 
 	 v 3   =   S l o t ( S l o t _ F r e q ) 
 
 	 ' '   - - - - - - - - - - - - - - - - - - - - - - - - -   C L E A R   f i l t e r 
 
 	 ' S l o t   S l o t _ S 2   =   1 0 0 0 
 
 	 ' S l o t   S l o t _ S 3   =   0 
 
 	 ' W a i t   S e c o n d s   0 . 2 
 
 	 ' v 4   =   S l o t ( S l o t _ F r e q ) 
 
         '   - - - - - - - - - - - - - - - - - - - - - - - - -   R E C O G N I Z E   C O L O R 
 
 	 I f   v 1   >   v 2   A n d   v 1   >   v 3 
 
 	 	 s 1   =   " R E D " 
 
 	 E l s e 
 
 	 	 I f   v 2   >   v 1   A n d   v 2   >   v 3 
 
 	 	 	 s 1   =   " G R E E N " 
 
 	 	 E l s e 
 
 	 	 	 I f   v 3   >   v 1   A n d   v 3   >   v 2 
 
 	 	 	 	 s 1   =   " B L U " 
 
 	 	 	 E n d I f 
 
 	 	 E n d I f 
 
 	 E n d I f 
 
 	 P r i n t   v 1   +   "   "   +   v 2   +   "   "   +   v 3   +   "   "   +   s 1 
 
 R e t u r n 
 
 
 
 L a b e l     T O U C H   T E S T 
 
 	 W i n d o w   M i n S i z e 
 
 	 B e e p 
 
 	 W a i t   K e y ( " S p a c e " ) 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ T o u c h T e s t . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 L a b e l     S t a r t   W X M   A p p T a b l e t 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S t a r t W X M _ A p p T a b l e t . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 L a b e l     S l i d e   P S W 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ S l i d e P s w . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 V a r i a b l e   S t r i n g   F i l e H e a d e r T e s t N a m e 
 
 L a b e l   W r i t e F i l e H e a d e r 
 
 	 s 1   =   " - - - - - - - - - - - - - - - - - - - - - - - - - "   +   C R L F 
 
 	 s 1   =   s 1   +   F i l e H e a d e r T e s t N a m e   +   C R L F 
 
 	 s 1   =   s 1   +   F o r m a t ( N o w ,   " d d / M M M / y y y y   H H : m m : s s " )   +   C R L F 
 
 	 s 1   =   s 1   +   " - - - - - - - - - - - - - - - - - - - - - - - - - " 
 
 	 S a v e   S t r i n g T o F i l e   s 1   F i l e N a m e 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S E Q U E N C E   L O A D I N G   A N D   E X E C U T I O N 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   S t r i n g   S e q u e n c e F i l e N a m e 
 
 V a r i a b l e   S t r i n g   S e q u e n c e 
 
 V a r i a b l e   S t r i n g   S e q u e n c e C m d 
 
 V a r i a b l e   N u m e r i c   S e q u e n c e I n d e x 
 
 V a r i a b l e   N u m e r i c   S e q u e n c e L e n g t h 
 
 
 
 L a b e l   E x e c S e q u e n c e 
 
 	 L o a d   S e q u e n c e   S e q u e n c e F i l e N a m e 
 
 	 I f   L e n ( S e q u e n c e )   =   0 
 
 	 	 C o n t r o l s   O p e n T e x t B o x 
 
 	 	 P r i n t   C R L F   +   "   S e q u e n c e   f i l e   n o t   f o u n d :   "   +   S e q u e n c e F i l e N a m e 
 
 	 	 B e e p 
 
 	 	 S t o p 
 
 	 E n d I f 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 	 V a r i a b l e   N u m e r i c   E x e c S e q u e n c e S t a r t T i m e 
 
 	 E x e c S e q u e n c e S t a r t T i m e   =   E l a p s e d T i m e 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 	 S e q u e n c e L e n g t h   =   G e t S e p a r a t e d S t r i n g C o u n t ( S e q u e n c e ,   C R L F ) 
 
 	 F o r   S e q u e n c e I n d e x   =   0   T o   S e q u e n c e L e n g t h - 1 
 
 	 	 S e q u e n c e C m d   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e ,   S e q u e n c e I n d e x ,   C R L F ) 
 
 	 	 S e q u e n c e C m d   =   R e p l a c e ( S e q u e n c e C m d ,   C h r ( 9 ) ,   "   " )   ' T A B S   t o   S P A C E S 
 
 	 	 S e q u e n c e C m d   =   R e m o v e C o m m e n t s ( S e q u e n c e C m d ) 
 
 	 	 S e q u e n c e C m d   =   T r i m ( S e q u e n c e C m d ) 
 
 	 	 ' 
 
 	 	 P r i n t   "   E x e c u t i n g   c o m m a n d :   "   +   S e q u e n c e C m d 
 
 	 	 ' 
 
 	 	 S e l e c t   U C a s e ( S e q u e n c e C m d ) 
 
                         '   - - - - - - - - - - - - - - - - - - -   e x i t   f r o m   t h e   s e q u e n c e   - - - - - - - - - - - - - 
 
 	 	 	 C a s e   " E N D S E Q " 
 
 	 	 	 	 S e q u e n c e I n d e x   =   S e q u e n c e L e n g t h - 1 
 
 	 	 	 '   - - - - - - - - - - - - - - - - - - -   s p e c i a l   m u l t i p l e   a c t i o n s   - - - - - - - - - - - 
 
 	 	 	 C a s e   " S L I D E " 	 	           '   s l i d e   b e f o r e   i n s e r t   P S W 
 
 	 	 	 	 G o s u b     S L I D E 
 
 	 	 	 C a s e   " Z E R O "                             '   m o v e   p e n   t o   X = 0   a n d   Y = 0   p o s i t i o n 
 
 	 	 	 	 G o s u b     Z E R O 
 
 	 	 	 C a s e   " A L L   O U T "                       '   a l l   p l u g   o u t 
 
 	 	 	 	 G o s u b     A L L   O U T 
 
 	 	 	 C a s e   " A L L   I N "                         '   a l l   p l u g   i n 
 
 	 	 	 	 G o s u b     A L L   I N 
 
 	 	       '   - - - - - - - - - - - - - - - - - - - - -   s i n g l e   a c t i o n   - - - - - - - - - - - - - - - - - - - - - - 
 
 	 	 	 C a s e   " P O W E R   I N "                     '   p o w e r   p l u g   i n 
 
 	 	 	 	 G o s u b     P O W E R   I N 
 
 	 	 	 C a s e   " P O W E R   O U T "                   '   p o w e r   p l u g   o u t 
 
 	 	 	 	 G o s u b     P O W E R   O U T 
 
 	 	 	 C a s e   " E N A B L E   M O T O R S "           ' e n a b l e   m o v e m e n t   m o t o r s 
 
 	 	 	 	 G o s u b     E N A B . M O T O R S 
 
 	 	 	 C a s e   " D I S A B L E   M O T O R S "         '   d i s a b l e   m o v e m e n t   m o t o r s 
 
 	 	 	 	 G o s u b     D I S A B . M O T O R S 
 
 	 	 	 C a s e   " P E N   U P "                         '   m o v e   p e n   u p 
 
 	 	 	 	 G o s u b     P E N   U P 
 
 	 	 	 C a s e   " P E N   D O W N "                     '   m o v e   p e n   d o w n 
 
 	 	 	 	 G o s u b     P E N   D O W N 
 
 	 	 	 C a s e   " P E N   S I N G L E "                 '   s i n g l e   c l i c k 
 
 	 	 	 	 G o s u b     P E N   S I N G L E 
 
 	 	 	 C a s e   " P E N   D O U B L E "                 '   d o u b l e   c l i c k 
 
 	 	 	 	 G o s u b     P E N   D O U B L E 
 
 	 	 	 C a s e   " P O W E R   C Y C L E "               '   p u s h   p o w e r   b u t t o n ,   w a i t   t h e n   r e l e a s e 
 
 	 	 	 	 ' G o s u b     P O W E R   C Y C L E 
 
 	 	 	 C a s e   " R O T A T E   H O R Z "               '   r o t a t e   t h e   t a b l e t   h o r i z o n t a l l y 
 
 	 	 	 	 G o s u b     R O T A T E   H O R Z 
 
 	 	 	 C a s e   " R O T A T E   M I D L "               '   r o t a t e   t h e   t a b l e t   6 0   d e g r e e 
 
 	 	 	 	 G o s u b     R O T A T E   M I D L 
 
 	 	 	 C a s e   " R O T A T E   V E R T "               '   r o t a t e   t h e   t a b l e t   v e r t i c a l l y 
 
 	 	 	 	 G o s u b     R O T A T E   V E R T 
 
 	 	 	 C a s e   " H D M I   I N " 
 
 	 	 	 	 G o s u b     H D M I   I N 
 
 	 	 	 C a s e   " H D M I   O U T " 
 
 	 	 	 	 G o s u b     H D M I   O U T 
 
 	 	 	 C a s e   " U S B 3   I N " 
 
 	 	 	 	 G o s u b     U S B 3   I N 
 
 	 	 	 C a s e   " U S B 3   O U T " 
 
 	 	 	 	 G o s u b     U S B 3   O U T 
 
 	 	 	 C a s e   " U S B C   I N " 
 
 	 	 	 	 G o s u b     U S B C   I N 
 
 	 	 	 C a s e   " U S B C   O U T " 
 
 	 	 	 	 G o s u b     U S B C   O U T 
 
 	 	 	 C a s e   " U S B P W R   I N " 
 
 	 	 	 	 G o s u b     U S B P W R   I N 
 
 	 	 	 C a s e   " U S B P W R   O U T " 
 
 	 	 	 	 G o s u b     U S B P W R   O U T 
 
 	 	 	 C a s e   " M E M O R Y   I N " 
 
 	 	 	 	 G o s u b     M E M O R Y   I N 
 
 	 	 	 C a s e   " M E M O R Y   O U T " 
 
 	 	 	 	 G o s u b     M E M O R Y   O U T 
 
 	 	 	 C a s e   " H E A R S E T   I N " 
 
 	 	 	 	 G o s u b     H E A R S E T   I N 
 
 	 	 	 C a s e   " H E A R S E T   O U T " 
 
 	 	 	 	 G o s u b     H E A R S E T   O U T 
 
 	 	 	 C a s e   " C L O S E   A L L " 
 
 	 	 	 	 G o s u b     C L O S E   A L L 
 
 	 	 	 '   - - - - - - - - - - - - - - - - - - -   d i s p l a y   a c t i o n s   - - - - - - - - - - - - - - - - - - - - - 
 
 	 	 	 C a s e   " B I T M A P " 
 
 	 	 	 	 G o s u b     B I T M A P 
 
 	 	 	 C a s e   " P H O T O " 
 
 	 	 	 	 G o s u b     P H O T O 
 
 	 	 	 C a s e   " V I D E O " 
 
 	 	 	 	 G o s u b     V I D E O 
 
 	 	 	 C a s e   " R E D " 
 
 	 	 	 	 G o s u b     R E D 
 
 	 	 	 C a s e   " G R E E N " 
 
 	 	 	 	 G o s u b     G R E E N 
 
 	 	 	 C a s e   " B L U " 
 
 	 	 	 	 G o s u b     B L U 
 
 	 	 	 C a s e   " N O   C O L O R " 
 
 	 	 	 	 G o s u b     N O   C O L O R 
 
 	 	 	 '   - - - - - - - - - - - - - - - - - - - - -   W A I T   M O T O R S   - - - - - - - - - - - - - - - - - - - - - - - 
 
 	 	 	 C a s e   " W A I T   M O T O R S " 
 
 	 	 	 	 G o s u b   W a i t M o t o r s 
 
 	 	 	 '   - - - - - - - - - - - - - - - - - - - - -   G E T   S Y S T E M   I N F O   - - - - - - - - - - - - - - - - - - - 
 
 	 	 	 C a s e   " G e t S y s t e m I n f o " 
 
 	 	 	 	 G o s u b     G e t S y s t e m I n f o 
 
 	 	 	 '   - - - - - - - - - - - - - - - - - - - - -   I s t r u c t i o n   w i t h   p a r a m e t e r s   - - - - - - - - 
 
 	 	 	 C a s e E l s e 
 
 	 	 	 	 s 1   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   0 ) 
 
 	 	 	 	 S e l e c t   U C a s e ( s 1 ) 
 
 	 	 	 	 	 C a s e   " M O V E " 
 
 	 	 	 	 	 	 D e s t X   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   1 ) 
 
 	 	 	 	 	 	 D e s t Y   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   2 ) 
 
 	 	 	 	 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 	 	 	 	 C a s e   " M O V E S L O W " 
 
 	 	 	 	 	 	 M o v e S l o w X Y _ D e s t X   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   1 ) 
 
 	 	 	 	 	 	 M o v e S l o w X Y _ D e s t Y   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   2 ) 
 
 	 	 	 	 	 	 M o v e S l o w X Y _ S p e e d   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   3 ) 
 
 	 	 	 	 	 	 G o s u b   M o v e S l o w X Y 
 
 	 	 	 	 	 C a s e   " D R A W C I R C L E " 
 
 	 	 	 	 	 	 D r a w C i r c l e _ X   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   1 ) 
 
 	 	 	 	 	 	 D r a w C i r c l e _ Y   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   2 ) 
 
 	 	 	 	 	 	 D r a w C i r c l e _ R a d i u s   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   3 ) 
 
 	 	 	 	 	 	 D r a w C i r c l e _ S p e e d   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   4 ) 
 
 	 	 	 	 	 	 G o s u b   D r a w C i r c l e 
 
 	 	 	 	 	 C a s e   " P A U S E " 
 
 	 	 	 	 	 	 W a i t   S e c o n d s   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   1 ) 
 
 	 	 	 	 	 C a s e   " P R E S S K E Y S " 
 
 	 	 	 	 	 	 S e q u e n c e C m d   =   M i d ( S e q u e n c e C m d ,   1 1 ) 
 
 	 	 	 	 	 	 P r e s s K e y s   S e q u e n c e C m d 
 
 	 	 	 	 	 C a s e   " S E N D K E Y S " 
 
 	 	 	 	 	 	 S e q u e n c e C m d   =   M i d ( S e q u e n c e C m d ,   1 0 ) 
 
 	 	 	 	 	 	 S e n d K e y s   S e q u e n c e C m d 
 
 	 	 	 	 	 C a s e   " P E N T Y P I N G " 
 
 	 	 	 	 	 	 P E N _ T O U C H _ T I M E   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   1 ) 
 
 	 	 	 	 	 	 G o s u b     P E N   T Y P I N G 
 
 	 	 	 	 	 C a s e E l s e 
 
 	 	 	 	 	 	 I f   s 1   < >   " " 
 
 	 	 	 	 	 	 	 C o n t r o l s   O p e n T e x t B o x 
 
 	 	 	 	 	 	 	 P r i n t   C R L F   +   "   U n r e c o g n i z e d   c o m m a n d :   "   +   S e q u e n c e C m d 
 
 	 	 	 	 	 	 	 B e e p 
 
 	 	 	 	 	 	 	 S t o p                       
 
 	 	 	 	 	 	 E n d I f 
 
 	 	 	 	 E n d S e l e c t 
 
 	 	 E n d S e l e c t 
 
 	 N e x t 
 
 	 S e q u e n c e F i l e N a m e   =   R e p l a c e ( S e q u e n c e F i l e N a m e , " . s e q " , " " ) 
 
 	 P r i n t   S e q u e n c e F i l e N a m e   +   "   e x e c u t e d   i n   "   +   F o r m a t ( E l a p s e d T i m e   -   E x e c S e q u e n c e S t a r t T i m e ,   " 0 . 0 0 " )   +   "   s e c o n d s " 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     C O R E   X Y 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   D e s t X 	 	 	 	 '   d e s t i n a t i o n   i n   m m   c o o r d s 
 
 V a r i a b l e   N u m e r i c   D e s t Y 	 	 	 	 '   d e s t i n a t i o n   i n   m m   c o o r d s 
 
 
 
 V a r i a b l e   N u m e r i c   S l o t _ M o t o r A 
 
 V a r i a b l e   N u m e r i c   S l o t _ M o t o r B 
 
 V a r i a b l e   N u m e r i c   S l o t _ E n a b l e M o t o r s 
 
 V a r i a b l e   N u m e r i c   S l o t _ S e n s o r X 
 
 V a r i a b l e   N u m e r i c   S l o t _ S e n s o r Y 
 
 
 
 L a b e l   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t       '   m o v e   t o   d e s t X   &   d e s t Y   a n d   w a i t   s t o p   m o t o r s 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 G o s u b   W a i t M o t o r s 
 
 R e t u r n 
 
 
 
 L a b e l   C o r e X Y _ M o v e T o D e s t X Y 	 	 	 '   m o v e   t o   d e s t X   &   d e s t Y   ( w i t h   l i m i t s ) 
 
 	 D e s t X   =   L i m i t ( D e s t X ,   D e s t x M i n ,   D e s t x M a x ) 
 
 	 D e s t Y   =   L i m i t ( D e s t Y ,   q q q ,   D e s t y M a x ) 
 
 	 G o s u b   C o r e X Y _ P r e p a r e C o r e A B 
 
 	 S l o t ( S l o t _ M o t o r A )   =   C o r e A 
 
 	 S l o t ( S l o t _ M o t o r B )   =   C o r e B 
 
 R e t u r n 
 
 
 
 L a b e l   C o r e X Y _ M o v e T o D e s t X Y _ N o L i m i t s 	 '   m o v e   t o   d e s t X   &   d e s t Y   ( w i t h o u t   u s i n g   l i m i t s ) 
 
 	 G o s u b   C o r e X Y _ P r e p a r e C o r e A B 
 
 	 S l o t ( S l o t _ M o t o r A )   =   C o r e A 
 
 	 S l o t ( S l o t _ M o t o r B )   =   C o r e B 
 
 R e t u r n 
 
 
 
 L a b e l   C o r e X Y _ S e t N e w Z e r o 
 
         '   - - - - - - - - - - - - - - - - - - - - - - - - -   R e s e t   a x i s   X   a n d   Y 
 
 	 S l o t ( S l o t _ M o t o r A )   =   R e s e t 
 
 	 S l o t ( S l o t _ M o t o r B )   =   R e s e t 
 
 	 W a i t   S e c o n d s   0 . 1 5 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - -   S e t   r e s e t   v a l u e s   w i t h   C o r e X Y   c o r r e c t i o n 
 
 	 D e s t X   =   0 
 
 	 D e s t Y   =   0 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ N o L i m i t s 
 
 	 G o s u b   W a i t M o t o r s 
 
 R e t u r n 
 
 
 
 V a r i a b l e   N u m e r i c   C o r e A 
 
 V a r i a b l e   N u m e r i c   C o r e B 
 
 
 
 L a b e l   C o r e X Y _ P r e p a r e C o r e A B 
 
 	 C o r e A   =   ( D e s t X   -   D e s t Y )   /   2 
 
 	 C o r e B   =   ( D e s t X   +   D e s t Y )   /   2 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     H O M E 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   H o m e A x i s 
 
 V a r i a b l e   N u m e r i c   S l o t S e n s o r 
 
 V a r i a b l e   N u m e r i c   D e t a c h M M 
 
 V a r i a b l e   N u m e r i c   S p e e d S e a r c h 
 
 V a r i a b l e   N u m e r i c   S p e e d R e t u r n 
 
 V a r i a b l e   N u m e r i c   I n i t i a l P o s i t i o n 
 
 
 
 L a b e l   Z E R O 
 
 	 G o s u b   C o r e X Y _ S e t N e w Z e r o 
 
 	 G o s u b     E N A B . M O T O R S 
 
 	 G o s u b     P E N   U P 
 
 	 G o s u b   H o m e X 
 
 	 G o s u b   H o m e Y 
 
 	 G o s u b   C o r e X Y _ S e t N e w Z e r o 
 
 	 P r i n t   F o r m a t ( D e s t X ,   " 0 . 0 0 0 " )   +   "   "   +   F o r m a t ( D e s t Y ,   " 0 . 0 0 0 " ) 
 
 	 ' G o s u b   " D I S A B . M O T O R S " 
 
 R e t u r n 
 
 
 
 L a b e l   H o m e X 
 
 	 H o m e A x i s   =   0                 	     '   0   =   A x i s   X 
 
 	 S l o t S e n s o r   =   S l o t _ S e n s o r X   '   h o m e   s e n s o r   s l o t 
 
 	 D e t a c h M M   =   1 	 	 	     '   i n i t i a l   d e t a c h   m m   ( n e g   o r   p o s ) 
 
 	 S p e e d S e a r c h   =   - 0 . 3 3 	             '   d i r e c t i o n   a n d   s p e e d 
 
 	 S p e e d R e t u r n   =   + 0 . 0 5 	 	     '   D e t a c h   d i r e c t i o n   a n d   s p e e d 
 
 	 I n i t i a l P o s i t i o n   =   5 	 	     '   m o v e   t o   M M 
 
 	 G o s u b     H o m e 
 
 R e t u r n 
 
 
 
 L a b e l   H o m e Y 
 
 	 H o m e A x i s   =   1                 	     '   1   =   A x i s   Y 
 
 	 S l o t S e n s o r   =   S l o t _ S e n s o r Y   '   h o m e   s e n s o r   s l o t 
 
 	 D e t a c h M M   =   1 	 	 	     '   i n i t i a l   d e t a c h   m m   ( n e g   o r   p o s ) 
 
 	 S p e e d S e a r c h   =   - 0 . 3 	 	     '   d i r e c t i o n   a n d   s p e e d 
 
 	 S p e e d R e t u r n   =   + 0 . 0 5 	 	     '   D e t a c h   d i r e c t i o n   a n d   s p e e d 
 
 	 I n i t i a l P o s i t i o n   =   3 	 	     '   m o v e   t o   M M 
 
 	 G o s u b   H o m e 
 
 R e t u r n 
 
 
 
 L a b e l   H o m e 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - -   d e t a c h   i f   s e n s o r   i s   a c t i v e 
 
 	 I f   S l o t ( S l o t S e n s o r )   >   5 0 0   O r   K e y ( " C T R L " ) 
 
 	 	 I f   H o m e A x i s   =   0 
 
 	 	 	 D e s t X   =   D e s t X   +   D e t a c h M M 
 
 	 	 E l s e 
 
 	 	 	 D e s t Y   =   D e s t Y   +   D e t a c h M M 
 
 	 	 E n d I f 
 
 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ N o L i m i t s 
 
 	 	 G o s u b   W a i t M o t o r s 
 
 	 E n d I f 
 
         '   - - - - - - - - - - - - - - - - - - - - - - - - - -   s e a r c h   t h e   s e n s o r 
 
 L a b e l   S e a r c h H o m e 
 
 	 I f   H o m e A x i s   =   0 
 
 	 	 D e s t X   =   D e s t X   +   S p e e d S e a r c h 
 
 	 E l s e 
 
 	 	 D e s t Y   =   D e s t Y   +   S p e e d S e a r c h 
 
 	 E n d I f 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ N o L i m i t s 
 
 	 ' 
 
 	 W a i t   S e c o n d s   0 . 0 0 5 
 
 	 I f   S l o t ( S l o t S e n s o r )   >   5 0 0   O r   K e y ( " C T R L " ) 
 
 	 	 G o s u b   C o r e X Y _ S e t N e w Z e r o 
 
 	 	 G o t o   D e t a c h S e n s o r 
 
 	 E n d I f 
 
 G o t o   S e a r c h H o m e 
 
         '   - - - - - - - - - - - - - - - - - - - - - - - - - -   d e t a c h   f r o m   t h e   s e n s o r 
 
 L a b e l   D e t a c h S e n s o r 
 
 	 I f   H o m e A x i s   =   0 
 
 	 	 D e s t X   =   D e s t X   +   S p e e d R e t u r n 
 
 	 E l s e 
 
 	 	 D e s t Y   =   D e s t Y   +   S p e e d R e t u r n 
 
 	 E n d I f 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ N o L i m i t s 
 
 	 W a i t   S e c o n d s   0 . 0 0 5 
 
 	 I f   S l o t   ( S l o t S e n s o r )   <   5 0 0   O r   K e y ( " C T R L " ) 
 
 	 	 G o s u b   W a i t M o t o r s 
 
 	 	 G o s u b   C o r e X Y _ S e t N e w Z e r o 
 
 	 	 G o t o   M o v e T o I n i t i a l P o s i t i o n 
 
 	 E n d I f 
 
 G o t o   D e t a c h S e n s o r 
 
         '   - - - - - - - - - - - - - - - - - - - - - - - - - -   m o v e   t o   I n i t i a l P o s i t i o n 
 
 L a b e l   M o v e T o I n i t i a l P o s i t i o n 
 
 	 I f   H o m e A x i s   =   0 
 
 	 	 D e s t X   =   I n i t i a l P o s i t i o n 
 
 	 E l s e 
 
 	 	 D e s t Y   =   I n i t i a l P o s i t i o n 
 
 	 E n d I f 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ N o L i m i t s 
 
 	 G o s u b   W a i t M o t o r s 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     W A I T   u n t i l   t h e   m o t o r s   A   a n d   B   a r e   s t o p p e d 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 L a b e l   W a i t M o t o r s 
 
 	 W a i t   S e c o n d s   0 . 1                   '   t h i s   e n s u r e s   t h a t   t h e   m o t o r s   a r e   r u n n i n g 
 
 	 L a b e l   W a i t M o t o r s 1 
 
 	 	 I f   A b s ( S l o t ( S l o t _ M o t o r A   +   1 ) )   <   0 . 0 5 
 
 	 	 	 I f   A b s ( S l o t ( S l o t _ M o t o r B   +   1 ) )   <   0 . 0 5 
 
 	 	 	 	 R e t u r n 
 
 	 	 	 E n d I f 
 
 	 	 E n d I f 
 
 	 	 W a i t   S e c o n d s   0 . 0 0 5 
 
 	 G o t o   W a i t M o t o r s 1 
 
 G o t o   W a i t M o t o r s 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S E R V O - M O T O R S   M O V E M E N T S 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   P O W E R _ I N 
 
 V a r i a b l e   N u m e r i c   P O W E R _ O U T 
 
 V a r i a b l e   N u m e r i c   U S B 3 _ I N 
 
 V a r i a b l e   N u m e r i c   U S B 3 _ O U T 
 
 V a r i a b l e   N u m e r i c   U S B C _ I N 
 
 V a r i a b l e   N u m e r i c   U S B C _ O U T 
 
 V a r i a b l e   N u m e r i c   H D M I _ I N 
 
 V a r i a b l e   N u m e r i c   H D M I _ O U T 
 
 V a r i a b l e   N u m e r i c   U S B P W R _ I N 
 
 V a r i a b l e   N u m e r i c   U S B P W R _ O U T 
 
 V a r i a b l e   N u m e r i c   O N O F F _ I N 
 
 V a r i a b l e   N u m e r i c   O N O F F _ O U T 
 
 V a r i a b l e   N u m e r i c   V O L U M E _ I N _ U P 
 
 V a r i a b l e   N u m e r i c   V O L U M E _ O U T 
 
 V a r i a b l e   N u m e r i c   V O L U M E _ I N _ D W 
 
 V a r i a b l e   N u m e r i c   M E M O R Y _ I N 
 
 V a r i a b l e   N u m e r i c   M E M O R Y _ O U T 
 
 V a r i a b l e   N u m e r i c   H E A R S E T _ I N 
 
 V a r i a b l e   N u m e r i c   H E A R S E T _ O U T 
 
 V a r i a b l e   N u m e r i c   P E N _ D O W N 
 
 V a r i a b l e   N u m e r i c   P E N _ U P 
 
 V a r i a b l e   N u m e r i c   P E N _ T O U C H _ T I M E 
 
 
 
 V a r i a b l e   N u m e r i c   S L O T _ P O W E R 	 	 	 '   d i g i t a l   m o t o r   1 
 
 V a r i a b l e   N u m e r i c   S L O T _ U S B 3 	 	 	 '   d i g i t a l   m o t o r   2 
 
 V a r i a b l e   N u m e r i c   S L O T _ U S B C 	 	 	 '   d i g i t a l   m o t o r   3 
 
 V a r i a b l e   N u m e r i c   S L O T _ H D M I 	 	 	 '   d i g i t a l   m o t o r   4 
 
 V a r i a b l e   N u m e r i c   S L O T _ U S B P W R 	 	 '   d i g i t a l   m o t o r   5 
 
 V a r i a b l e   N u m e r i c   S L O T _ O N O F F 	 	 	 '   d i g i t a l   m o t o r   6 
 
 V a r i a b l e   N u m e r i c   S L O T _ V O L U M E 	 	 '   d i g i t a l   m o t o r   7 
 
 V a r i a b l e   N u m e r i c   S L O T _ M E M O R Y 	 	 '   d i g i t a l   m o t o r   8 
 
 V a r i a b l e   N u m e r i c   S L O T _ H E A R S E T 	 	 '   d i g i t a l   m o t o r   9 
 
 V a r i a b l e   N u m e r i c   S L O T _ P E N 	 	 	 '   d i g i t a l   m o t o r   1 0 
 
 V a r i a b l e   N u m e r i c   S L O T _ R O T A T 	 	 	 '   d i g i t a l   m o t o r   1 1 
 
 V a r i a b l e   N u m e r i c   S L O T _ T a b l e t P o w e r       '   T a b l l e t   p o w e r   s e n s i n g 
 
 
 
 ' L a b e l     S T A R T   L O O P 
 
 ' 	 v 2   =   I n p u t   " H o w   m a n y   l o o p s   ? " 
 
 ' 	 F o r   v 1   =   1   T o   v 2 
 
 ' 	 	 G o s u b   " A L L   I N " 
 
 ' 	 	 W a i t   S e c o n d s   0 . 5 
 
 ' 	 	 G o s u b   " A L L   O U T " 
 
 ' 	 	 W a i t   S e c o n d s   0 . 5 
 
 ' 	 N e x t 
 
 ' R e t u r n 
 
 
 
 L a b e l     P O W E R   O U T 
 
 	 M o v e _ S l o t   =   S L O T _ P O W E R 
 
 	 M o v e _ D e s t   =   P O W E R _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 	 B u t t o n   1   C o l o r   C h o c o l a t e 
 
 	 B u t t o n   2   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l     P O W E R   I N 
 
 	 M o v e _ S l o t   =   S L O T _ P O W E R 
 
 	 M o v e _ D e s t   =   P O W E R _ I N 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 	 B u t t o n   1   C o l o r   L i m e 
 
 	 B u t t o n   2   C o l o r   C h o c o l a t e 
 
 R e t u r n 
 
 
 
 L a b e l     U S B 3   O U T 
 
 	 M o v e _ S l o t   =   S L O T _ U S B 3 
 
 	 M o v e _ D e s t   =   U S B 3 _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     U S B 3   I N 
 
 	 M o v e _ S l o t   =   S L O T _ U S B 3 
 
 	 M o v e _ D e s t   =   U S B 3 _ I N 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     U S B C   I N 
 
 	 M o v e _ S l o t   =   S L O T _ U S B C 
 
 	 M o v e _ D e s t   =   U S B C _ I N 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     U S B C   O U T 
 
 	 M o v e _ S l o t   =   S L O T _ U S B C 
 
 	 M o v e _ D e s t   =   U S B C _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     H D M I   O U T 
 
 	 M o v e _ S l o t   =   S L O T _ H D M I 
 
 	 M o v e _ D e s t   =   H D M I _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     H D M I   I N 
 
 	 M o v e _ S l o t   =   S L O T _ H D M I 
 
 	 M o v e _ D e s t   =   H D M I _ I N 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     U S B P W R   O U T 
 
 	 M o v e _ S l o t   =   S L O T _ U S B P W R 
 
 	 M o v e _ D e s t   =   U S B P W R _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     U S B P W R   I N 
 
 	 M o v e _ S l o t   =   S L O T _ U S B P W R 
 
 	 M o v e _ D e s t   =   U S B P W R _ I N 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 
 
 L a b e l   R e c e i v e F i l e F r o m C O M 
 
 	 V a r i a b l e   S t r i n g   F i l e N a m e 
 
 	 V a r i a b l e   S t r i n g   S t r 1 
 
 	 ' 
 
 	 C O M   D i s c a r d I n B u f f e r 
 
 	 ' 
 
 	 S t r 1   =   " " 
 
 	 F o r   v 1   =   1   T o   9 e 9 9 
 
 	 	 s 1   =   C O M _ R e c e i v e d 
 
 	 	 I f   s 1   < >   " " 
 
 	 	 	 s 1   =   R e p l a c e ( s 1 ,   " { { { C R L F } } } " ,   C R L F ) 
 
 	 	 	 S t r 1   =   S t r 1   +   s 1 
 
 	 	 	 I f   s 1   =   " { { { F i l e E n d M a r k e r } } } " 
 
 	 	 	 	 S t r 1   =   R e p l a c e ( S t r 1 ,   " { { { F i l e E n d M a r k e r } } } " ,   " " ) 
 
 	 	 	 	 S a v e   D e l e t e F i l e   F i l e N a m e 
 
 	 	 	 	 S a v e   S t r i n g T o F i l e   S t r 1   F i l e N a m e 
 
 	 	 	 	 E x i t 
 
 	 	 	 E n d I f 
 
 	 	 E n d I f 
 
 	 	 W a i t   S e c o n d s   0 . 0 1 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 
 
 
 
 L a b e l     O N O F F   O U T 
 
 	 M o v e _ S l o t   =   S L O T _ O N O F F 
 
 	 M o v e _ D e s t   =   O N O F F _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     O N O F F   I N 
 
 	 M o v e _ S l o t   =   S L O T _ O N O F F 
 
 	 M o v e _ D e s t   =   O N O F F _ I N 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     V O L U M E   O U T 
 
 	 M o v e _ S l o t   =   S L O T _ V O L U M E 
 
 	 M o v e _ D e s t   =   V O L U M E _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     V O L U M E   U P 
 
 	 M o v e _ S l o t   =   S L O T _ V O L U M E 
 
 	 M o v e _ D e s t   =   V O L U M E _ I N _ U P 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     V O L U M E   D W 
 
 	 M o v e _ S l o t   =   S L O T _ V O L U M E 
 
 	 M o v e _ D e s t   =   V O L U M E _ I N _ D W 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     M E M O R Y   O U T 
 
 	 M o v e _ S l o t   =   S L O T _ M E M O R Y 
 
 	 M o v e _ D e s t   =   M E M O R Y _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     M E M O R Y   I N 
 
 	 M o v e _ S l o t   =   S L O T _ M E M O R Y 
 
 	 M o v e _ D e s t   =   M E M O R Y _ I N 
 
 	 M o v e _ S p e e d   =   3 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     H E A R S E T   O U T 
 
 	 M o v e _ S l o t   =   S L O T _ H E A R S E T 
 
 	 M o v e _ D e s t   =   H E A R S E T _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     H E A R S E T   I N 
 
 	 M o v e _ S l o t   =   S L O T _ H E A R S E T 
 
 	 M o v e _ D e s t   =   H E A R S E T _ I N 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     P E N   U P 
 
 	 M o v e _ S l o t   =   S L O T _ P E N 
 
 	 M o v e _ D e s t   =   P E N _ U P 
 
 	 S l o t ( M o v e _ S l o t )   =   M o v e _ D e s t 
 
 	 W a i t   S e c o n d s   0 . 1 
 
 R e t u r n 
 
 
 
 L a b e l     P E N   D O W N 
 
 	 M o v e _ S l o t   =   S L O T _ P E N 
 
 	 M o v e _ D e s t   =   P E N _ D O W N 
 
 	 S l o t ( M o v e _ S l o t )   =   M o v e _ D e s t 
 
 	 W a i t   S e c o n d s   0 . 1 
 
 R e t u r n 
 
 
 
 L a b e l     P E N   S I N G L E 
 
 	 G o s u b     P E N   D O W N 
 
 	 W a i t   S e c o n d s   0 . 3 5 
 
 	 G o s u b     P E N   U P 
 
 R e t u r n 
 
 
 
 L a b e l     P E N   D O U B L E 
 
 	 S l o t ( S L O T _ P E N )   =   P E N _ D O W N 
 
 	 W a i t   S e c o n d s   0 . 0 9 
 
 	 S l o t ( S L O T _ P E N )   =   P E N _ U P 
 
 	 W a i t   S e c o n d s   0 . 1 
 
 	 S l o t ( S L O T _ P E N )   =   P E N _ D O W N 
 
 	 W a i t   S e c o n d s   0 . 0 9 
 
 	 S l o t ( S L O T _ P E N )   =   P E N _ U P 
 
 R e t u r n 
 
 
 
 L a b e l     P E N   T Y P I N G 
 
 	 M o v e _ S l o t   =   S L O T _ P E N 
 
 	 M o v e _ D e s t   =   P E N _ D O W N 
 
 	 S l o t ( M o v e _ S l o t )   =   M o v e _ D e s t 
 
 	 W a i t   S e c o n d s   P E N _ T O U C H _ T I M E 
 
 	 M o v e _ S l o t   =   S L O T _ P E N 
 
 	 M o v e _ D e s t   =   P E N _ U P 
 
 	 S l o t ( M o v e _ S l o t )   =   M o v e _ D e s t 
 
 	 
 
 	 ' B u t t o n   1 0   T e x t     P E N   U P 
 
 R e t u r n 
 
 
 
 L a b e l     P O W E R   O N 
 
 	 G o s u b     U S B 3   I N 
 
 	 B u t t o n   4   C o l o r   F l a s h i n g 8   Y e l l o w 5   R e d 5 
 
 	 G o s u b     O N O F F   I N 
 
 	 W a i t   S e c o n d s   3 
 
 	 I f   S l o t ( S L O T _ T a b l e t P o w e r )   >   5 0 0 
 
 	 	 B u t t o n   4   C o l o r   P a l e G r e e n 
 
 	 	 B u t t o n   5   C o l o r   R e d 
 
 	 E l s e 
 
 	 	 P r i n t   " P O W E R   O N   F A I L U R E " 
 
 	 E n d I f 
 
 	 G o s u b     O N O F F   O U T 
 
 R e t u r n 
 
 
 
 L a b e l     P O W E R   O F F 
 
 	 G o s u b     U S B 3   I N 
 
 	 B u t t o n   4   C o l o r   Y e l l o w 6 
 
 	 B u t t o n   5   C o l o r   F l a s h i n g 8   Y e l l o w 5   R e d 5 
 
 	 G o s u b     O N O F F   I N 
 
 	 W a i t   S e c o n d s   1 0 
 
 	 I f   S l o t ( S L O T _ T a b l e t P o w e r )   <   5 0 0 
 
 	 	 B u t t o n   4   C o l o r   B l a c k 
 
 	 	 B u t t o n   5   C o l o r   B l a c k 
 
 	 E n d I f 
 
 	 G o s u b     O N O F F   O U T 
 
 R e t u r n 
 
 
 
 L a b e l     E N A B . M O T O R S 
 
 	 G o s u b   W a i t M o t o r s 
 
 	 S l o t ( S l o t _ E n a b l e M o t o r s )   =   1 0 0 0 
 
 ' I f   B u t t o n V i s i b l e ( 2 ) 
 
 ' 	 B u t t o n   2   T e x t   " D I S A B . M O T O R S " 
 
 ' 	 B u t t o n   2   C o l o r   G r e e n Y e l l o w 
 
 ' E n d I f 
 
 R e t u r n 
 
 
 
 L a b e l     D I S A B . M O T O R S 
 
 	 G o s u b   W a i t M o t o r s 
 
 	 S l o t ( S l o t _ E n a b l e M o t o r s )   =   0 
 
 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 ' 	 I f   B u t t o n V i s i b l e ( 3 ) 
 
 ' 	 B u t t o n   3   T e x t   " E N A B . M O T O R S " 
 
 ' 	 B u t t o n   3   C o l o r   R e d 
 
 ' E n d I f 
 
 R e t u r n 
 
 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S E R V O - M O T O R S   M O V E   S L O W 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   M o v e _ S l o t 
 
 V a r i a b l e   N u m e r i c   M o v e _ S p e e d 
 
 V a r i a b l e   N u m e r i c   M o v e _ D e s t 
 
 V a r i a b l e   N u m e r i c   M o v e _ P o s 
 
 
 
 L a b e l   M o v e S l o w 
 
 	 M o v e _ P o s   =   S l o t ( M o v e _ S l o t ) 
 
 	 I f   M o v e _ D e s t   >   M o v e _ P o s 
 
 	 	 M o v e _ P o s   =   M o v e _ P o s   +   M o v e _ S p e e d 
 
 	 	 I f   M o v e _ P o s   >   M o v e _ D e s t 
 
 	 	 	 M o v e _ P o s   =   M o v e _ D e s t 
 
 	 	 E n d I f 
 
 	 E l s e 
 
 	 	 M o v e _ P o s   =   M o v e _ P o s   -   M o v e _ S p e e d 
 
 	 	 I f   M o v e _ P o s   <   M o v e _ D e s t 
 
 	 	 	 M o v e _ P o s   =   M o v e _ D e s t 
 
 	 	 E n d I f 
 
 	 E n d I f 
 
 	 S l o t ( M o v e _ S l o t )   =   M o v e _ P o s 
 
 	 W a i t   S e c o n d s   0 . 0 1 
 
 	 I f   M o v e _ P o s   =   M o v e _ D e s t 
 
 	 	 R e t u r n 
 
 	 E n d I f 
 
 G o t o   M o v e S l o w 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S T E P P E R - M O T O R S   M O V E   S L O W 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   M o v e S l o w X Y _ D e s t X   	 '   d e s t i n a t i o n   i n   m m 
 
 V a r i a b l e   N u m e r i c   M o v e S l o w X Y _ D e s t Y   	 '   d e s t i n a t i o n   i n   m m 
 
 V a r i a b l e   N u m e r i c   M o v e S l o w X Y _ S p e e d   	 '   s p e e d   i n   m m / s e c 
 
 
 
 V a r i a b l e   N u m e r i c   M S V 1 
 
 V a r i a b l e   N u m e r i c   M S V 2 
 
 V a r i a b l e   N u m e r i c   M S V 3 
 
 V a r i a b l e   N u m e r i c   M S V 4 
 
 
 
 L a b e l   M o v e S l o w X Y 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   t e s t   f o r   v e r y   l o w   s p e e d 
 
 	 I f   M o v e S l o w X Y _ S p e e d   <   0 . 1 
 
 	 	 M o v e S l o w X Y _ S p e e d   =   1 
 
 	 E n d I f 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   t h e   m o v e m e n t   i n   m m 
 
 	 M S V 1   =   M o v e S l o w X Y _ D e s t X   -   D e s t X 
 
 	 M S V 2   =   M o v e S l o w X Y _ D e s t Y   -   D e s t Y 
 
 	 M S V 3   =   M S V 1   *   M S V 1 
 
 	 M S V 3   =   M S V 3   +   M S V 2   *   M S V 2 
 
 	 M S V 3   =   S q r t ( M S V 3 ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   t h e   l o o p s   c o u n t 
 
 	 M S V 4   =   M S V 3   /   0 . 0 1   ' < < <   l o o p   t i m e 
 
 	 M S V 4   =   I n t ( M S V 4   /   M o v e S l o w X Y _ S p e e d ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   t o o   m u c h   s p e e d   ? 
 
 	 I f   M S V 4   =   0 
 
 	 	 D e s t X   =   M o v e S l o w X Y _ D e s t X 
 
 	 	 D e s t Y   =   M o v e S l o w X Y _ D e s t Y 
 
 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 	 R e t u r n 
 
 	 E n d I f 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   p r e p a r e   t h e   i n c r e m e n t s 
 
 	 M S V 1   =   ( M o v e S l o w X Y _ D e s t X   -   D e s t X )   /   M S V 4 
 
 	 M S V 2   =   ( M o v e S l o w X Y _ D e s t Y   -   D e s t Y )   /   M S V 4 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   l o o p   f o r   v 4   t i m e s 
 
 	 F o r   M S V 3   =   1   T o   M S V 4 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   i n c r e m e n t ,   m o v e   a n d   w a i t 
 
 	 	 D e s t X   =   D e s t X   +   M S V 1 
 
 	 	 D e s t Y   =   D e s t Y   +   M S V 2 
 
 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 	 W a i t   S e c o n d s   0 . 0 1   ' < < <   l o o p   t i m e 
 
 	 N e x t 
 
 	 G o s u b   W a i t M o t o r s 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S T E P P E R - M O T O R S   D R A W   C I R C L E 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   D r a w C i r c l e _ X   	         '   C e n t e r   X   i n   m m 
 
 V a r i a b l e   N u m e r i c   D r a w C i r c l e _ Y   	         '   C e n t e r   Y   i n   m m 
 
 V a r i a b l e   N u m e r i c   D r a w C i r c l e _ R a d i u s     '   R a d i u s   i n   m m 
 
 V a r i a b l e   N u m e r i c   D r a w C i r c l e _ S p e e d   	 '   S p e e d   i n   m m / s e c 
 
 
 
 V a r i a b l e   N u m e r i c   D C V 1 
 
 V a r i a b l e   N u m e r i c   D C V 2 
 
 V a r i a b l e   N u m e r i c   D C V 3 
 
 V a r i a b l e   N u m e r i c   D C V 4 
 
 
 
 L a b e l   D r a w C i r c l e 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   t e s t   f o r   v e r y   l o w   s p e e d 
 
 	 I f   D r a w C i r c l e _ S p e e d   <   0 . 1 
 
 	 	 D r a w C i r c l e _ S p e e d   =   1 
 
 	 E n d I f 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   t h e   m o v e m e n t   i n   m m 
 
 	 D C V 3   =   D r a w C i r c l e _ R a d i u s   *   M a t h _ P I   *   2 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   t h e   l o o p s   c o u n t 
 
 	 D C V 4   =   D C V 3   /   0 . 0 1   ' < < <   l o o p   t i m e 
 
 	 D C V 4   =   I n t ( D C V 4   /   D r a w C i r c l e _ S p e e d ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   t o o   m u c h   s p e e d   ? 
 
 	 I f   D C V 4   <   1 6 
 
 	 	 D C V 4   =   1 6 
 
 	 E n d I f 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   p r e p a r e   t h e   i n c r e m e n t s 
 
 	 D C V 1   =   2   *   M a t h _ P I   /   D C V 4 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   l o o p   f o r   v 4   t i m e s 
 
 	 F o r   D C V 3   =   0   T o   D C V 4 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   c i r c l e 
 
 	 	 D C V 2   =   D C V 3   *   D C V 1 
 
 	 	 D e s t X   =   D r a w C i r c l e _ X   +   D r a w C i r c l e _ R a d i u s   *   S i n ( D C V 2 ) 
 
 	 	 D e s t Y   =   D r a w C i r c l e _ Y   +   D r a w C i r c l e _ R a d i u s   *   C o s ( D C V 2 ) 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   m o v e   a n d   w a i t 
 
 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 	 W a i t   S e c o n d s   0 . 0 1   ' < < <   l o o p   t i m e 
 
 	 N e x t 
 
 	 G o s u b   W a i t M o t o r s 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S T E P P E R - M O T O R S   a n d   P E N   a c t i o n   S L I D E 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   S l i d e _ D e s t X   	   '   d e s t i n a t i o n   i n   m m 
 
 V a r i a b l e   N u m e r i c   S l i d e _ D e s t Y   	   '   d e s t i n a t i o n   i n   m m 
 
 V a r i a b l e   N u m e r i c   S l i d e _ S p e e d   	   '   s p e e d   i n   m m / s e c 
 
 V a r i a b l e   N u m e r i c   S l i d e _ P e n U p T i m e   '   p e n - u p   t i m e   i n   m S   f r o m   s t a r t 
 
 
 
 V a r i a b l e   N u m e r i c   S L V 1 
 
 V a r i a b l e   N u m e r i c   S L V 2 
 
 V a r i a b l e   N u m e r i c   S L V 3 
 
 V a r i a b l e   N u m e r i c   S L V 4 
 
 V a r i a b l e   N u m e r i c   S L V 5 
 
 
 
 L a b e l   S L I D E 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 S l i d e _ D e s t X   =   5 0                                     ' 5 0 
 
 	 S l i d e _ D e s t Y   =   1 3 0                                   ' 1 3 0 
 
 	 S l i d e _ S p e e d   =   2 0 0                                   ' 2 0 0 
 
 	 S l i d e _ P e n U p T i m e   =   5 0 0                           ' 5 0 0 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   t h e   m o v e m e n t   i n   m m 
 
 	 S L V 1   =   S l i d e _ D e s t X   -   D e s t X 
 
 	 S L V 2   =   S l i d e _ D e s t Y   -   D e s t Y 
 
 	 S L V 3   =   S L V 1   *   S L V 1 
 
 	 S L V 3   =   S L V 3   +   S L V 2   *   S L V 2 
 
 	 S L V 3   =   S q r t ( S L V 3 ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   t h e   l o o p s   c o u n t 
 
 	 S L V 4   =   S L V 3   /   0 . 0 1   ' < < <   l o o p   t i m e 
 
 	 S L V 4   =   I n t ( S L V 4   /   S l i d e _ S p e e d ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   p r e p a r e   t h e   i n c r e m e n t s 
 
 	 S L V 1   =   ( S l i d e _ D e s t X   -   D e s t X )   /   S L V 4 
 
 	 S L V 2   =   ( S l i d e _ D e s t Y   -   D e s t Y )   /   S L V 4 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   p r e p a r e   t h e   p e n - u p   t i m e 
 
 	 S L V 5   =   S l i d e _ P e n U p T i m e   /   1 0 0 0 
 
 	 S L V 5   =   I n t ( S L V 5   /   0 . 0 1 )   ' < < <   l o o p   t i m e 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   p e n   d o w n 
 
 	 S l o t ( S L O T _ P E N )   =   P E N _ D O W N 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   l o o p   f o r   v 4   t i m e s 
 
 	 F o r   S L V 3   =   1   T o   S L V 4 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   i n c r e m e n t ,   m o v e   a n d   w a i t 
 
 	 	 D e s t X   =   D e s t X   +   S L V 1 
 
 	 	 D e s t Y   =   D e s t Y   +   S L V 2 
 
 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 	 W a i t   S e c o n d s   0 . 0 1   ' < < <   l o o p   t i m e 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   p e n   u p 
 
 	 	 I f   S L V 3   =   S L V 5 
 
 	 	 	 S l o t ( S L O T _ P E N )   =   P E N _ U P 
 
 	 	 E n d I f 
 
 	 N e x t 
 
 	 G o s u b   W a i t M o t o r s 
 
 	 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     R O T A T I O N S   V E R T I C A L / H O R I Z Z O N T A L 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   S l o t _ R o t H V _ D r i v e 
 
 V a r i a b l e   N u m e r i c   S l o t _ R o t H V _ C u r r e n t 
 
 V a r i a b l e   N u m e r i c   S l o t _ R o t H V _ M a x C u r r e n t 
 
 
 
 L a b e l     R O T A T E   V E R T 
 
 	 S l o t   9 9 8   =   6 0 0 	 	 	 ' s t a r t   S i g n a l   S c o p e 
 
 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 F o r   v 1   =   1   T o   1 3 0 0                 '   < < <   1 0 0 0   =   1 0   s e c   t i m e o u t   ( a p p r o x ) 
 
 	 	 W a i t   S e c o n d s   0 . 0 0 9 
 
 	 	 I f   S l o t ( S l o t _ R o t H V _ C u r r e n t )   >   S l o t _ R o t H V _ M a x C u r r e n t 
 
 	 	 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 	 	 S l o t   9 9 8   =   0 	 ' s t o p   S i g n a l   S c o p e 
 
 	 	 	 B u t t o n   1 2   L a b e l   " R O T A T E   H O R Z " 
 
 	 	 	 G o t o   E x i t R o t a t e V e r t 
 
 	 	 E n d I f 
 
 	 N e x t 
 
 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 S l o t   9 9 8   =   0 	 	 	 ' s t o p   S i g n a l   S c o p e 
 
 	 B u t t o n   1 2   L a b e l   " R O T A T E   H O R Z " 
 
 ' 
 
 L a b e l   E x i t R o t a t e V e r t 
 
 R e t u r n 
 
 
 
 L a b e l     R O T A T E   M I D L 
 
 	 S l o t   9 9 8   =   6 0 0 	 	 	 ' s t a r t   S i g n a l   S c o p e 
 
 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 F o r   v 1   =   1   T o   6 0 0                 '   < < <   1 0 0 0   =   1 0   s e c   t i m e o u t   ( a p p r o x ) 
 
 	 	 W a i t   S e c o n d s   0 . 0 0 9 
 
 	 	 I f   S l o t ( S l o t _ R o t H V _ C u r r e n t )   >   S l o t _ R o t H V _ M a x C u r r e n t 
 
 	 	 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 	 	 S l o t   9 9 8   =   0 	 ' s t o p   S i g n a l   S c o p e 
 
 	 	 	 G o t o   E x i t R o t a t e M i d l 
 
 	 	 E n d I f 
 
 	 N e x t 
 
 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 S l o t   9 9 8   =   0 	 	 	 ' s t o p   S i g n a l   S c o p e 
 
 ' 
 
 L a b e l   E x i t R o t a t e M i d l 
 
 R e t u r n 
 
 
 
 L a b e l     R O T A T E   H O R Z 
 
 	 S l o t   9 9 8   =   6 0 0 	 	 	 ' s t a r t   S i g n a l   S c o p e 
 
 	 S l o t   S l o t _ R o t H V _ D r i v e   =   0 
 
 	 W a i t   S e c o n d s   0 . 3 
 
 	 F o r   v 1   =   1   T o   1 3 0 0                 '   < < <   1 0 0 0   =   1 0   s e c   t i m e o u t   ( a p p r o x ) 
 
 	 	 W a i t   S e c o n d s   0 . 0 0 9 
 
 	 	 I f   S l o t ( S l o t _ R o t H V _ C u r r e n t )   >   S l o t _ R o t H V _ M a x C u r r e n t 
 
 	 	 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 	 	 S l o t   9 9 8   =   0 	 ' s t o p   S i g n a l   S c o p e 
 
 	 	 	 B u t t o n   1 2   L a b e l     R O T A T E   V E R T 
 
 	 	 	 G o t o   E x i t R o t a t e H o r z 
 
 	 	 E n d I f 
 
 	 N e x t 
 
 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 S l o t   9 9 8   =   0 	 	 	 ' s t o p   S i g n a l   S c o p e 
 
 	 B u t t o n   1 2   L a b e l     R O T A T E   V E R T 
 
 	 ' 
 
 L a b e l   E x i t R o t a t e H o r z 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     J O G   W I T H   M O U S E 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   J o g _ E n a b l e _ S l o t 
 
 V a r i a b l e   N u m e r i c   J o g _ R a n g e X 
 
 V a r i a b l e   N u m e r i c   J o g _ R a n g e Y 
 
 V a r i a b l e   N u m e r i c   J o g _ A c t i v e 
 
 
 
 L a b e l     J O G   w i t h   M o u s e 
 
 	 G o s u b     E N A B . M O T O R S 
 
 	 B u t t o n   8   L a b e l     " J O G   S T O P " 
 
 	 J o g _ A c t i v e   =   1 
 
 	 L a b e l   J o g 2 
 
 	 	 I f   S l o t ( J o g _ E n a b l e _ S l o t )   >   5 0 0 
 
 	 	 	 D e s t X   =   M o u s e X   *   J o g _ R a n g e X 
 
 	 	 	 D e s t Y   =   M o u s e Y   *   J o g _ R a n g e Y 
 
 	 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 	 	 P r i n t   F o r m a t ( D e s t X ,   " 0 . 0 0 0 " )   +   "   "   +   F o r m a t ( D e s t Y ,   " 0 . 0 0 0 " ) 
 
 	 	 E n d I f 
 
 	 	 I f   J o g _ A c t i v e   =   0 
 
 	 	 	 R e t u r n 
 
 	 	 E n d I f 
 
 	 G o t o   J o g 2 
 
 R e t u r n 
 
 
 
 L a b e l     J O G   S T O P 
 
 	 B u t t o n   8   L a b e l   " J O G   w i t h   M o u s e " 
 
 	 J o g _ A c t i v e   =   0 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     J O G   w i t h   k e y b o a r d 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 L a b e l   E x e c K e y s 
 
 	 V a r i a b l e   N u m e r i c   K e y J o g _ S p e e d 
 
 	 V a r i a b l e   N u m e r i c   J o g S p e e d 
 
 	 J o g S p e e d   =   K e y J o g _ S p e e d   /   1 0 0 
 
 	 S e l e c t   T r u e 
 
 	 	 C a s e   K e y ( " S H I F T " ) 
 
 	 	 	 J o g S p e e d   =   J o g S p e e d   *   0 . 1 
 
 	 	 C a s e   K e y ( " C T R L " ) 
 
 	 	 	 J o g S p e e d   =   J o g S p e e d   *   0 . 0 1 
 
 	 	 C a s e   K e y ( " A L T " ) 
 
 	 	 	 J o g S p e e d   =   J o g S p e e d   *   0 . 0 0 1 
 
 	 E n d S e l e c t 
 
 	 ' 
 
 	 I f   K e y ( " R i g h t " ) 
 
 	 	 D e s t X   =   D e s t X   +   J o g S p e e d 
 
 	 E n d I f 
 
 	 I f   K e y ( " L e f t " ) 
 
 	 	 D e s t X   =   D e s t X   -   J o g S p e e d 
 
 	 E n d I f 
 
 	 ' 
 
 	 I f   K e y ( " U p " ) 
 
 	 	 D e s t Y   =   D e s t Y   +   J o g S p e e d 
 
 	 E n d I f 
 
 	 I f   K e y ( " D o w n " ) 
 
 	 	 D e s t Y   =   D e s t Y   -   J o g S p e e d 
 
 	 E n d I f 
 
 	 ' 
 
 	 ' I f   K e y ( " P a g e U p " ) 
 
 	 ' 	 S l o t   S l o t _ Z   =   L i m i t ( S l o t ( S l o t _ Z )   +   J o g S p e e d ,   Z m i n ,   Z m a x ) 
 
 	 ' E n d I f 
 
 	 ' I f   K e y ( " P a g e D o w n " ) 
 
 	 ' 	 S l o t   S l o t _ Z   =   L i m i t ( S l o t ( S l o t _ Z )   -   J o g S p e e d ,   Z m i n ,   Z m a x ) 
 
 	 ' E n d I f 
 
 	 ' 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 G o s u b   P r i n t V a l u e s 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     P R I N T   C O O R D I N A T E S 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 L a b e l   P r i n t V a l u e s 
 
 	 s 1   =               " D e s t X = "   +   F o r m a t ( D e s t X ,   " 0 . 0 0 0 " ) 
 
 	 s 1   =   s 1   +   "   D e s t Y = "   +   F o r m a t ( D e s t Y ,   " 0 . 0 0 0 " ) 
 
 	 P r i n t   C R L F   +   s 1 
 
 R e t u r n 
 
 
 
 
 
 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '           N a m e :   C o n t r o l _ 7 8 _ N e w H o m i n g . t x t                               D a t e :   0 8   S e t   2 0 2 0 
 
 '         A u t o r :   L e o n a r d o   D E   P A L O 
 
 '         S c o p e :   T e s t   C O R E X Y   f r o m   W i n g o 
 
 '   H a r d w a r e :   S t a n d a r d   M a s t e r . 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 
 
 O p t i o n   S p e e d   9 
 
 
 
 C O M   O p e n   1   1 1 5 2 0 0 
 
 
 
 S p e e d S e a r c h   =   - 0 . 3 3 3 	             '   d i r e c t i o n   a n d   s p e e d 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   O p t i o n s 
 
 K e y J o g _ S p e e d   =   1 0 0 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   S o f t w a r e   l i m i t s 
 
 D e s t x M a x   =       2 5 6 
 
 D e s t x M i n   =           5 
 
 D e s t y M a x   =       1 4 4 
 
 q q q   =           5 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   M O T O R S   A S S I G N E M E N T S 
 
 P O W E R _ I N               =   3 6 3 	 '   m a i n   p o w e r   p l u g   i n s e r t 
 
 P O W E R _ O U T             =   6 6 5         '   m a i n   p o w e r   p l u g   o u t 
 
 
 
 U S B 3 _ I N                 =   2 1 2 
 
 U S B 3 _ O U T               =   6 2 0 
 
 
 
 U S B C _ I N                 =   3 8 4 
 
 U S B C _ O U T               =   6 7 0 
 
 H D M I _ I N                 =   9 9 5 
 
 H D M I _ O U T               =   7 8 7 
 
 U S B P W R _ I N             =   2 0 5 
 
 U S B P W R _ O U T           =   4 7 0 
 
 O N O F F _ I N               =   7 5 0 
 
 O N O F F _ O U T             =   2 9 5 
 
 
 
 V O L U M E _ I N _ U P       =   6 9 7 
 
 V O L U M E _ O U T           =   7 5 4 
 
 V O L U M E _ I N _ D W       =   7 9 4 
 
 
 
 M E M O R Y _ I N             =   3 0 0 
 
 M E M O R Y _ O U T           =   6 0 4 
 
 H E A R S E T _ I N           =   8 6 5 
 
 H E A R S E T _ O U T         =   5 6 5 
 
 P E N _ D O W N               =   5 6 0 
 
 P E N _ U P                   =   1 8 9 
 
 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   S T E P P E R   S L O T S 
 
 S l o t _ M o t o r A                 =     1 	 	 	 ' 1 _ T a b T e s t e r X Y   p i n     1   S T E P P E R 
 
 S l o t _ M o t o r B                 =     3 	 	 	 ' 1 _ T a b T e s t e r X Y   p i n     3   S T E P P E R 
 
 S l o t _ S e n s o r X               =     7 	 	 	 ' 1 _ T a b T e s t e r X Y   p i n     7   D I G   I N P U 
 
 S l o t _ S e n s o r Y               =     8 	 	 	 ' 1 _ T a b T e s t e r X Y   p i n     8   D I G   I N P U 
 
 S l o t _ E n a b l e M o t o r s     =   1 0 	 	 	 ' 1 _ T a b T e s t e r X Y   p i n   1 0   D I G   O U T 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   D I G I T A L   M O T O R   S L O T S 
 
 S L O T _ U S B 3                     =   1 3   	 	 ' 2 _ T a b T e s t e r M o t   p i n   1   P W M 1 6 
 
 S L O T _ U S B C                     =   1 4                   ' 2 _ T a b T e s t e r M o t   p i n   2   P W M 1 6 
 
 S L O T _ H D M I                     =   1 5 	 	 	 ' 2 _ T a b T e s t e r M o t   p i n   3   P W M 1 6 
 
 S L O T _ U S B P W R                 =   1 6 	 	 	 ' 2 _ T a b T e s t e r M o t   p i n   4   P W M 1 6 
 
 S L O T _ O N O F F                   =   1 7 	 	 	 ' 2 _ T a b T e s t e r M o t   p i n   5   P W M 1 6 
 
 S L O T _ P O W E R   	 	       =   1 8 	 	 	 ' 2 _ T a b T e s t e r M o t   p i n   6   s o f t w a r e   c o n t r o l   S E R V O 1 6 
 
 S L O T _ V O L U M E                 =   2 5 	 	 	 ' 3 _ T a b T e s t e r M o t   p i n   1   P W M 1 6 
 
 S L O T _ M E M O R Y                 =   2 6 	 	 	 ' 3 _ T a b T e s t e r M o t   p i n   2   P W M 1 6 
 
 S L O T _ H E A R S E T               =   2 7 	 	 	 ' 3 _ T a b T e s t e r M o t   p i n   3   P W M 1 6 
 
 S L O T _ P E N                       =   2 9 	 	 	 ' 3 _ T a b T e s t e r M o t   p i n   4   P W M 1 6 
 
 S L O T _ R O T A T 	               =   2 8 	 	 	 ' 3 _ T a b T e s t e r M o t   p i n   5   P W M 1 6 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   T A B L E T   P O W E R 
 
 S L O T _ T a b l e t P o w e r       =     9                   '   1 0 0 0   =   T a b l e t   o n 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   R O T A T I O N   H / V 
 
 S l o t _ R o t H V _ D r i v e             =   2 8             ' 3 0 	 	 '   s l o t 
 
 S l o t _ R o t H V _ C u r r e n t         =   6 0             ' 3 1 	 	 '   s l o t 
 
 S l o t _ R o t H V _ M a x C u r r e n t   =   6 0 0 0         ' P e r i o d   f o r   t h e   m a x   c u r r e n t 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   S L O T S   F O R   S O U N D   T E S T S 
 
 S l o t _ R u n S c o p e                     =   3 7 
 
 S l o t _ S o u n d L e v e l                 =   4 1 
 
 S l o t _ S o u n d L e v e l 2 n d H a r m   =   4 3 
 
 S l o t _ S o u n d L e v e l 3 r d H a r m   =   4 5 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   J O G   W I T H   M O U S E 
 
 J o g _ R a n g e X                 =   2 5 6                 ' 2 8 8 
 
 J o g _ R a n g e Y                 =   1 4 4 
 
 J o g _ E n a b l e _ S l o t       =   3 4 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   C O L O R   R E C O G N I T I O N 
 
 S l o t _ S 0       =     2 4 
 
 S l o t _ S 1       =     2 3 
 
 S l o t _ S 2       =     2 1 
 
 S l o t _ S 3       =     2 0 
 
 S l o t _ F r e q   =     2 2 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   F I L E   S E T   U P 
 
 '   V a r i a b l e   S t r i n g   F i l e N a m e 
 
 '   F i l e N a m e   =   " T e s t _ R e s u l t s . t x t " 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   L O A D   A P P S 
 
 L o a d   T h e r e m i n o _ H A L \ T h e r e m i n o _ H A L . e x e 
 
 L o a d   T h e r e m i n o _ H A L \ T h e r e m i n o _ S l o t V i e w e r . e x e 
 
 
 
 ' L o a d   T h e r e m i n o _ M i c r o V i d e o \ T h e r e m i n o _ M i c r o V i d e o . e x e 
 
 ' L o a d   T h e r e m i n o _ A u d i o G e n e r a t o r \ T h e r e m i n o _ A u d i o G e n e r a t o r . e x e 
 
 ' L o a d   T h e r e m i n o _ A u d i o I n p u t \ T h e r e m i n o _ A u d i o I n p u t . e x e 
 
 ' L o a d   T h e r e m i n o _ H A L \ T h e r e m i n o _ S i g n a l S c o p e . e x e 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   K E Y S 
 
 K e y   R i g h t 	 	 G o s u b   E x e c K e y s 
 
 K e y   L e f t   	 	 G o s u b   E x e c K e y s 
 
 K e y   U p   	 	 	 G o s u b   E x e c K e y s 
 
 K e y   D o w n   	 	 G o s u b   E x e c K e y s 
 
 K e y   P a g e u p 	 	 G o s u b   P E N   U P 
 
 K e y   P a g e d o w n 	 G o s u b   P E N   D O W N 
 
 K e y   E n d           	 G o s u b   P E N   S I N G L E 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   S T A R T 
 
 L o a d   T o c . w a v 
 
 O p t i o n   S p e e d   9 
 
 
 
 S l o t   S l o t _ S 0   =   1 0 0 0 
 
 S l o t   S l o t _ S 1   =   1 0 0 0 
 
 
 
 ' W i n d o w   M i n S i z e 
 
 
 
 D e s t X   =   v 1 
 
 D e s t Y   =   v 2 
 
 
 
 G o s u b     V O L U M E   O U T 
 
 G o s u b     P E N   U P 
 
 G o s u b     M A I N   M E N U 
 
 
 
 S t o p 	 	 	 	 	 	 	 	 	 	 	 	 ' 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 V a r i a b l e   N u m e r i c   D e s t x M a x 
 
 V a r i a b l e   N u m e r i c   D e s t x M i n 
 
 V a r i a b l e   N u m e r i c   D e s t y M a x 
 
 V a r i a b l e   N u m e r i c   q q q 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 L a b e l     C L E A R   B U T T O N S 
 
 	 F o r   v 1   =   1   T o   3 2 
 
 	 	 B u t t o n   v 1   T e x t   " " 
 
 	 	 B u t t o n   v 1   C o l o r   M o c c a s i n 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 L a b e l     C L O S E   A L L 
 
 	 L o a d   C l o s e A p p s 
 
 R e t u r n 
 
 
 
 L a b e l   E v e n t S t o p 
 
 	 W i n d o w   S i z a b l e 
 
 E n d 
 
 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 '       M E N U 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 L a b e l     M A I N   M E N U 
 
 	 G o s u b     C L E A R   B U T T O N S 
 
 	 B u t t o n   1   L a b e l     D I S P L A Y 
 
 	 B u t t o n   1   C o l o r   S k y B l u e 
 
 	 B u t t o n   2   L a b e l     T O U C H 
 
 	 B u t t o n   2   C o l o r   L i g h t S t e e l B l u e 
 
 	 B u t t o n   3   L a b e l     A U D I O 
 
 	 B u t t o n   3   C o l o r   L i g h t G r e e n 
 
 	 
 
 	 B u t t o n   4   L a b e l     P L U G 
 
 	 B u t t o n   4   C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   5   L a b e l     W i - F i 
 
 	 B u t t o n   5   C o l o r   H o t P i n k 
 
 	 B u t t o n   6   L a b e l     B L U E T O O T H 
 
 	 B u t t o n   6   C o l o r   R o y a l B l u e 
 
 	 B u t t o n   7   L a b e l     P O W E R 
 
 	 B u t t o n   7   C o l o r   C h o c o l a t e 
 
 	 B u t t o n   8   L a b e l     V I R T U A L   K e y 
 
 	 B u t t o n   8   C o l o r   S l a t e G r a y 
 
 	 B u t t o n   9   L a b e l     M E C H A N I C A L 
 
 	 B u t t o n   9   C o l o r   G a i n s b o r o 
 
 	 B u t t o n   1 0   L a b e l     M I S C E L L A N E A 
 
 	 B u t t o n   1 0   C o l o r   D a r k C y a n 
 
 	 
 
 	 B u t t o n   1 5   L a b e l     C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l   D I S P L A Y 
 
 	 G o s u b     C L E A R   B U T T O N S 
 
 	 B u t t o n   1     L a b e l     L U M I N O S I T Y 
 
 	 B u t t o n   1     C o l o r   S k y B l u e 
 
 	 B u t t o n   2     L a b e l     R E D 
 
 	 B u t t o n   2     C o l o r   R e d 
 
 	 B u t t o n   3     L a b e l     G R E E N 
 
 	 B u t t o n   3     C o l o r   G r e e n 
 
 	 B u t t o n   4     L a b e l     B L U 
 
 	 B u t t o n   4     C o l o r   B l u e 
 
 	 B u t t o n   5     L a b e l     W H I T E 
 
 	 B u t t o n   5     C o l o r   W h i t e 
 
 	 B u t t o n   6     L a b e l     B I T M A P 
 
 	 B u t t o n   6     C o l o r   S k y B l u e 
 
 	 B u t t o n   7     L a b e l     P H O T O 
 
 	 B u t t o n   7     C o l o r   S k y B l u e 
 
 	 B u t t o n   8     L a b e l     V I D E O 
 
 	 B u t t o n   8     C o l o r   S k y B l u e 
 
 	 B u t t o n   9     L a b e l     N O   C o l o r 
 
 	 B u t t o n   9     C o l o r   S k y B l u e 
 
 	 B u t t o n   1 0   L a b e l     C o l o r   T E S T 
 
 	 B u t t o n   1 0   C o l o r   S k y B l u e 
 
 	 ' B u t t o n   1 1   T e x t     - - - - - - - - 
 
 	 ' B u t t o n   1 1   C o l o r   S k y B l u e 
 
 	 B u t t o n   1 2   L a b e l     T O U C H   T E S T 
 
 	 B u t t o n   1 2   C o l o r   S k y B l u e 
 
 	 B u t t o n   1 3   L a b e l     C o l o r   R E C O G N I T I O N 
 
 	 B u t t o n   1 3   C o l o r   S k y B l u e 
 
 	 
 
 	 B u t t o n   1 4   L a b e l     M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   L a b e l     C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l     T O U C H 
 
 	 G o s u b     C L E A R   B U T T O N S 
 
 	 B u t t o n   1   L a b e l     P E N   U P 
 
 	 B u t t o n   1   C o l o r   L i g h t S t e e l B l u e 
 
 	 B u t t o n   2   L a b e l     P E N   D O W N 
 
 	 B u t t o n   2   C o l o r   L i g h t S t e e l B l u e 
 
 	 B u t t o n   3   L a b e l     P E N   S I N G L E 
 
 	 B u t t o n   3   C o l o r   L i g h t S t e e l B l u e 
 
 	 B u t t o n   4   L a b e l     P E N   D O U B L E 
 
 	 B u t t o n   4   C o l o r   L i g h t S t e e l B l u e 
 
 	 B u t t o n   5   L a b e l     S L I D E 
 
 	 B u t t o n   5   C o l o r   L i g h t S t e e l B l u e 
 
 	 B u t t o n   6   L a b e l     S L I D E   P S W 
 
 	 B u t t o n   6   C o l o r   L i g h t S t e e l B l u e 
 
 	 B u t t o n   7   L a b e l     T O U C H   T E S T 
 
 	 B u t t o n   7   C o l o r   L i g h t S t e e l B l u e 
 
 	 B u t t o n   8   L a b e l     J O G   w i t h   M o u s e 
 
 	 B u t t o n   8   C o l o r   L i g h t S t e e l B l u e 
 
 	 B u t t o n   1 0   L a b e l     S t a r t   W X M   A p p T a b l e t 
 
 	 B u t t o n   1 0   C o l o r   L i g h t S t e e l B l u e 
 
 	 
 
 	 B u t t o n   1 4   L a b e l     M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   L a b e l     C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l     A U D I O 
 
 	 G o s u b     C L E A R   B U T T O N S 
 
 	 B u t t o n   1   L a b e l     H E A R S E T   I N 
 
 	 B u t t o n   1   C o l o r   L i g h t G r e e n 
 
 	 B u t t o n   2   L a b e l     H E A R S E T   O U T 
 
 	 B u t t o n   2   C o l o r   L i g h t G r e e n 
 
 	 B u t t o n   3   L a b e l     V O L U M E   O U T 
 
 	 B u t t o n   3   C o l o r   L i g h t G r e e n 
 
 	 B u t t o n   4   L a b e l     V O L U M E   U P 
 
 	 B u t t o n   4   C o l o r   L i g h t G r e e n 
 
 	 B u t t o n   5   L a b e l     V O L U M E   D W 
 
 	 B u t t o n   5   C o l o r   L i g h t G r e e n 
 
 	 B u t t o n   6   L a b e l     V O L U M E   T E S T 
 
 	 B u t t o n   6   C o l o r   L i g h t G r e e n 
 
 	 B u t t o n   7   L a b e l     S P E A K . D I S T . 
 
 	 B u t t o n   7   C o l o r   L i g h t G r e e n 
 
 	 B u t t o n   8   L a b e l     T e s t H e a r s e t 
 
 	 B u t t o n   8   C o l o r   L i g h t G r e e n 
 
 	 
 
 	 B u t t o n   1 4   L a b e l     M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   L a b e l     C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l     P L U G 
 
 	 G o s u b     C L E A R   B U T T O N S 
 
 	 B u t t o n   1   L a b e l     P O W E R   I N 
 
 	 B u t t o n   1   C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   2   L a b e l     P O W E R   O U T 
 
 	 B u t t o n   2   C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   3     L a b e l     M E M O R Y   I N 
 
 	 B u t t o n   3     C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   4     L a b e l     M E M O R Y   O U T 
 
 	 B u t t o n   4     C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   5     L a b e l     U S B 3   I N 
 
 	 B u t t o n   5     C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   6     L a b e l     U S B 3   O U T 
 
 	 B u t t o n   6     C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   7     L a b e l     U S B C   I N 
 
 	 B u t t o n   7     C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   8     L a b e l     U S B C   O U T 
 
 	 B u t t o n   8     C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   9     L a b e l     H D M I   I N 
 
 	 B u t t o n   9     C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   1 0     L a b e l     H D M I   O U T 
 
 	 B u t t o n   1 0     C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   1 1     L a b e l     H E A R S E T   I N 
 
 	 B u t t o n   1 1     C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   1 2     L a b e l     H E A R S E T   O U T 
 
 	 B u t t o n   1 2   C o l o r   M e d i u m A q u a m a r i n e 
 
 	 
 
 	 B u t t o n   1 4   L a b e l     M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   L a b e l     C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l     W i - F i 
 
 	 G o s u b     C L E A R   B U T T O N S 
 
 	 B u t t o n   1   L a b e l     E M P T Y   1 
 
 	 B u t t o n   1   C o l o r   H o t P i n k 
 
 	 B u t t o n   2   L a b e l     E M P T Y   2 
 
 	 B u t t o n   2   C o l o r   H o t P i n k 
 
 	 B u t t o n   3   L a b e l     E M P T Y   3 
 
 	 B u t t o n   3   C o l o r   H o t P i n k 
 
 	 
 
 	 B u t t o n   1 4   L a b e l     M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   L a b e l     C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l     B L U E T O O T H 
 
 	 G o s u b     C L E A R   B U T T O N S 
 
 	 B u t t o n   1   L a b e l     E M P T Y   1 
 
 	 B u t t o n   1   C o l o r   R o y a l B l u e 
 
 	 B u t t o n   2   L a b e l     E M P T Y   2 
 
 	 B u t t o n   2   C o l o r   R o y a l B l u e 
 
 	 B u t t o n   3   L a b e l     E M P T Y   3 
 
 	 B u t t o n   3   C o l o r   R o y a l B l u e 
 
 	 
 
 	 B u t t o n   1 4   L a b e l     M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   L a b e l     C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l     P O W E R 
 
 	 G o s u b     C L E A R   B U T T O N S 
 
 	 B u t t o n   1   L a b e l     P O W E R   I N 
 
 	 B u t t o n   1   C o l o r   C h o c o l a t e 
 
 	 B u t t o n   2   L a b e l     P O W E R   O U T 
 
 	 B u t t o n   2   C o l o r   C h o c o l a t e 
 
 	 B u t t o n   4   L a b e l     P O W E R   O N 
 
 	 B u t t o n   4   C o l o r   Y e l l o w 6 
 
 	 B u t t o n   5   L a b e l     P O W E R   O F F 
 
 	 B u t t o n   5   C o l o r   Y e l l o w 6 
 
 	 
 
 	 B u t t o n   1 4   L a b e l     M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   L a b e l     C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l     V I R T U A L   K E Y 
 
 	 G o s u b     C L E A R   B U T T O N S 
 
 	 B u t t o n   1   L a b e l     N U M B E R 
 
 	 B u t t o n   1   C o l o r   S l a t e G r a y 
 
 	 B u t t o n   2   L a b e l     A L P H A B E T 
 
 	 B u t t o n   2   C o l o r   S l a t e G r a y 
 
 	 B u t t o n   3   L a b e l      $ % *   & [ @ ) ^ ! 
 
 	 B u t t o n   3   C o l o r   S l a t e G r a y 
 
 	 B u t t o n   5   L a b e l     P S   S E Q U E N C E S 
 
 	 B u t t o n   5   C o l o r   S l a t e G r a y 
 
 	 B u t t o n   6   L a b e l     G e t - S e r v i c e 
 
 	 B u t t o n   6   C o l o r   S l a t e G r a y 
 
 	 B u t t o n   7   L a b e l     W i n 1 0   u p d a t e   h i s t o r y 
 
 	 B u t t o n   7   C o l o r   S l a t e G r a y 
 
 	 B u t t o n   8   L a b e l     G e t S y s t e m I n f o 
 
 	 B u t t o n   8   C o l o r   S l a t e G r a y 
 
 	 
 
 	 B u t t o n   1 4   L a b e l     M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   L a b e l     C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 
 
 L a b e l     M E C H A N I C A L 
 
 	 G o s u b     C L E A R   B U T T O N S 
 
 	 B u t t o n   1   L a b e l     Z E R O 
 
 	 B u t t o n   1   C o l o r   G a i n s b o r o 
 
 	 B u t t o n   2   L a b e l     E N A B . M O T O R S 
 
 	 B u t t o n   2   C o l o r   G a i n s b o r o 
 
 	 B u t t o n   3   L a b e l     D I S A B . M O T O R S 
 
 	 B u t t o n   3   C o l o r   G a i n s b o r o 
 
 	 B u t t o n   4   L a b e l     R O T A T E   V E R T 
 
 	 B u t t o n   4   C o l o r   G a i n s b o r o 
 
 	 B u t t o n   5   L a b e l     R O T A T E   H O R Z 
 
 	 B u t t o n   5   C o l o r   G a i n s b o r o 
 
 	 B u t t o n   6   L a b e l     R O T A T E   M I D L 
 
 	 B u t t o n   6   C o l o r   G a i n s b o r o 
 
 	 B u t t o n   7   L a b e l     B u t t o n   F A S T 
 
 	 B u t t o n   7   C o l o r   G a i n s b o r o 
 
 	 
 
 	 B u t t o n   9   L a b e l     B U R N   I N   7 - 2 4 
 
 	 B u t t o n   9   C o l o r   G a i n s b o r o 
 
 	 
 
 	 B u t t o n   1 4   L a b e l     M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   L a b e l     C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l     M I S C E L L A N E A 
 
 	 G o s u b     C L E A R   B U T T O N S 
 
 	 B u t t o n   1   L a b e l     S T A N D   B Y 
 
 	 B u t t o n   1   C o l o r   D a r k C y a n 
 
 	 B u t t o n   2   L a b e l     S A F E   R E M O V E 
 
 	 B u t t o n   2   C o l o r   D a r k C y a n 
 
 	 B u t t o n   3   L a b e l     A L L   I N 
 
 	 B u t t o n   3   C o l o r   D a r k C y a n 
 
 	 B u t t o n   4   L a b e l     A L L   O U T 
 
 	 B u t t o n   4   C o l o r   D a r k C y a n 
 
 	 B u t t o n   5   L a b e l     V   K E Y B O A R D 
 
 	 B u t t o n   5   C o l o r   D a r k C y a n 
 
 	 B u t t o n   6   L a b e l     J O G   w i t h   M o u s e 
 
 	 B u t t o n   6   C o l o r   D a r k C y a n 
 
 	 B u t t o n   7   L a b e l     C A L I B R A T E 
 
 	 B u t t o n   7   C o l o r   D a r k C y a n 
 
 	 B u t t o n   8   L a b e l     U S B P W R   I N 
 
 	 B u t t o n   8   C o l o r   D a r k C y a n 
 
 	 B u t t o n   9   L a b e l     U S B P W R   O U T 
 
 	 B u t t o n   9   C o l o r   D a r k C y a n 
 
 	 
 
 	 B u t t o n   1 1   L a b e l     G e t S y s t e m I n f o 
 
 	 B u t t o n   1 1   C o l o r   D a r k C y a n 
 
 	 
 
 	 B u t t o n   1 4   L a b e l     M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   L a b e l     C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l     N U M B E R 
 
 	 P r e s s K e y s   A L T   T a b 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 s 1   =     " S P A C E " 
 
 	 P r e s s K e y s   s 1 
 
 	 P r e s s K e y s   1   2   3   4   5   6   7   8   9   0   E n t e r 
 
 R e t u r n 
 
 
 
 L a b e l     A L P H A B E T 
 
 	 P r e s s K e y s   A L T   T a b 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 P r e s s K e y s   A   B   C   D   E   F   G   H   I   J   K   L   M   N   O   P   Q   R   S   T   U   V   W   X   Y   Z   E n t e r 
 
 	 P r e s s K e y s   B   C   C     E n t e r 
 
 R e t u r n 
 
 
 
 L a b e l      $ % *   & [ @ ) ^ ! 
 
 	 ' P r e s s K e y   S p a c e 
 
 	 P r e s s K e y s   W I N D O W S   X 
 
 	 W a i t   S e c o n d s   2 
 
 R e t u r n 
 
 
 
 L a b e l     P S   S E Q U E N C E S 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ D i r . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 L a b e l     G e t - S e r v i c e 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ G e t - S e r v i c e . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 L a b e l     W i n 1 0   u p d a t e   h i s t o r y 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ W i n 1 0 - u p d a t e - h i s t o r y . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 L a b e l     G e t S y s t e m I n f o 
 
 	 C O M   D i s c a r d O u t B u f f e r 
 
 	 C O M   W r i t e S t r i n g   " S e n d S y s t e m I n f o "   +   C R L F 
 
 	 F i l e N a m e   =   " i n f o . c s v " 
 
 	 G o s u b   R e c e i v e F i l e F r o m C O M 
 
 R e t u r n 
 
 
 
 
 
 L a b e l     L U M I N O S I T Y 
 
 	 B u t t o n   1   C o l o r   F l a s h i n g 8   B l a c k   G r a y 5 
 
 	 B e e p 
 
 	 W a i t   K e y ( " S p a c e " ) 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ L u m i n o s i t y B i g P e n . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 	 B u t t o n   1   C o l o r   S k y B l u e 
 
 R e t u r n 
 
 
 
 L a b e l     V   K E Y B O A R D 
 
 	 B e e p 
 
 	 W a i t   K e y ( " S p a c e " ) 
 
 	 B u t t o n   2 9   C o l o r   F l a s h i n g 8   B l u e 9     C y a n 9 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ V i r t u a l K e y b o a r d . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 	 W a i t   S e c o n d s   2 
 
 	 B u t t o n   2 9   C o l o r   M e d i u m B l u e 
 
 R e t u r n 
 
 
 
 L a b e l     R E D 
 
 	 C O M   W r i t e S t r i n g       " R E D "   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l     G R E E N 
 
 	 C O M   W r i t e S t r i n g     " G R E E N "   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l     B L U 
 
 	 C O M   W r i t e S t r i n g   " B L U "   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l     W H I T E 
 
 	 C O M   W r i t e S t r i n g     " W H I T E "   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l     N O   C O L O R 
 
 	 C O M   W r i t e S t r i n g   " N O   C O L O R "   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l     B I T M A P 
 
 	 C O M   W r i t e S t r i n g   " B I T M A P "   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l     P H O T O 
 
 	 C O M   W r i t e S t r i n g   " P H O T O "   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l     V I D E O 
 
 	 C O M   W r i t e S t r i n g   " V I D E O "   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l     S T A N D   B Y 
 
 	 G o s u b     Z E R O 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ S a f e R e m o v e . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 	 G o s u b     P O W E R   I N 
 
 	 G o s u b     U S B 3   I N 
 
 	 G o s u b     M E M O R Y   I N 
 
 	 G o s u b     U S B C   O U T 
 
 	 G o s u b     H D M I   O U T 
 
 	 G o s u b     U S B P W R   O U T 
 
 	 G o s u b     H E A R S E T   O U T 
 
 	 G o s u b     O N O F F   O U T 
 
 	 G o s u b     V O L U M E   O U T 
 
 	 G o s u b     D I S A B . M O T O R S 
 
 R e t u r n 
 
 
 
 L a b e l     A L L   I N 
 
 	 G o s u b     P O W E R   I N 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     U S B 3   I N 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     U S B C   I N 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     H D M I   I N 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     U S B P W R   I N 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     H E A R S E T   I N 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     M E M O R Y   I N 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 ' G o s u b     O N O F F   I N 
 
 	 ' G o s u b     V O L U M E   I N _ U P 
 
 	 ' W a i t   S e c o n d s   0 . 5 
 
 	 G o s u b     V O L U M E   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 R e t u r n 
 
 
 
 L a b e l     A L L   O U T 
 
 	 G o s u b     P O W E R   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     U S B 3   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     U S B C   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     H D M I   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     U S B P W R   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     H E A R S E T   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     M E M O R Y   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     O N O F F   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 ' G o s u b     V O L U M E   I N _ D W 
 
 	 ' W a i t   S e c o n d s   0 . 5 
 
 	 G o s u b     V O L U M E   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 R e t u r n 
 
 
 
 L a b e l   M U L T I 
 
 	 v 2   =   I n p u t   "   H o w   m a n y   l o o p s ?   " 
 
 	 I f   v 2   =   0 
 
 	 	 v 2   =   1 0 
 
 	 E n d I f 
 
 	 F o r   v 1   =   1   T o   v 2 
 
 	 	 s 1   =   N o w 
 
 	 	 s 1   =   s 1   +   "           C y c l e   i n   p r o g r e s s   =   "   +   v 1 
 
 	 	 s 1   =   s 1   +   "           C y c l e   t o   d o   =   "   +   v 2 
 
 	 	 P r i n t   s 1 
 
 	 	 ' G o s u b   R U N   T E S T 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 L a b e l     S A F E   R E M O V E 
 
 	 G o s u b     Z E R O 
 
 	 G o s u b     P O W E R   O U T 
 
 	 G o s u b     U S B 3   O U T 
 
 	 G o s u b     U S B C   O U T 
 
 	 G o s u b     H D M I   O U T 
 
 	 G o s u b     U S B P W R   O U T 
 
 	 G o s u b     H E A R S E T   O U T 
 
 	 G o s u b     O N O F F   O U T 
 
 	 G o s u b     V O L U M E   O U T 
 
 	 G o s u b     M E M O R Y   O U T 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ S a f e R e m o v e . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 L a b e l     B U T T O N   F A S T 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ B u t t o n F a s t . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 L a b e l     B U R N   I N   7 - 2 4 
 
 	 F o r   v 9   =   1   T o   1 0 0 0 0 
 
 	 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ B u r n I n 7 - 2 4 . s e q " 
 
 	 	 G o s u b   E x e c S e q u e n c e 
 
 	 	 P r i n t   " C y c l e   n u m b e r : "   +   v 9 
 
 ' 	 	 W a i t   S e c o n d s   1 . 5 
 
 	 	 S l o t ( 1 0 0 )   =   S l o t ( 1 0 0 )   +   1 
 
 	 	 B e e p 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 L a b e l     C A L I B R A T E 
 
 	 ' B e e p 
 
 	 ' W a i t   K e y ( " S p a c e " ) 
 
 	 G o s u b     Z E R O 
 
 	 ' S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ C a l i b r a t e . s e q " 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ S p e e d T e s t . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '       A U D I O   T E S T S 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   S l o t _ R u n S c o p e 
 
 V a r i a b l e   N u m e r i c   S l o t _ S o u n d L e v e l 
 
 V a r i a b l e   N u m e r i c   S l o t _ S o u n d L e v e l 2 n d H a r m 
 
 V a r i a b l e   N u m e r i c   S l o t _ S o u n d L e v e l 3 r d H a r m 
 
 V a r i a b l e   N u m e r i c   S o u n d L e v e l M i n 
 
 V a r i a b l e   N u m e r i c   S o u n d N o i s e M a x 
 
 V a r i a b l e   N u m e r i c   S o u n d D i s t 2 n d H a r m M a x   '   M a x   l e v e l   f o r   t h e   2 n d   h a r m o n i c s 
 
 V a r i a b l e   N u m e r i c   S o u n d D i s t 3 r d H a r m M a x   '   M a x   l e v e l   f o r   t h e   3 r d   h a r m o n i c s 
 
 
 
 L a b e l   S P E A K . D I S T . 
 
 	 W i n d o w   M i n S i z e 
 
 	 W a i t   K e y ( " S p a c e " ) 
 
 	 B u t t o n   2 5   C o l o r   F l a s h i n g 8   G o l d   D a r k G r e e n 
 
 	 S o u n d L e v e l M i n   =   6 5 0 
 
 	 S o u n d N o i s e M a x   =   3 5 0 
 
 	 S o u n d D i s t 2 n d H a r m M a x   =   4 0 0 
 
 	 S o u n d D i s t 3 r d H a r m M a x   =   4 0 0 
 
 	 G o s u b   A u d i o T e s t 
 
 	 W i n d o w   S i z a b l e 
 
 	 B u t t o n   2 5   C o l o r   L i g h t S t e e l B l u e 
 
 	 ' G o s u b   E v e n t S t o p 
 
 R e t u r n 
 
 
 
 L a b e l     T e s t H e a r s e t 
 
 	 W i n d o w   M i n S i z e 
 
 	 B u t t o n   2 6   C o l o r   F l a s h i n g 8   G o l d   D a r k G r e e n 
 
 	 S o u n d L e v e l M i n   =   5 0 
 
 	 S o u n d N o i s e M a x   =   3 0 
 
 	 G o s u b   A u d i o T e s t 
 
 	 W i n d o w   S i z a b l e 
 
 	 B u t t o n   2 6   C o l o r   L i g h t S t e e l B l u e 
 
 	 G o s u b   E v e n t S t o p 
 
 R e t u r n 
 
 
 
 L a b e l   A u d i o T e s t 
 
 	 ' G o s u b   " Z E R O " 
 
 	 S l o t   3 9   =   1 0 0 0                             ' < < < < < < < < < < < < < <   m a n u a l   s o u n d   s t a r t 
 
         ' B e e p 
 
 	 ' w a i t   S e c o n d s   2 
 
 	 ' W a i t   K e y ( " S p a c e " ) 
 
 	 s 1   =   " " 
 
 	 ' - - - - - - - - - - - - - - - - - - - - - -   t e s t   a u d i o   l e f t 
 
 	 D e s t X   =   0 1 4 
 
 	 D e s t Y   =   1 0 8 . 8 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 G o s u b     P E N   S I N G L E 
 
 	 W a i t   S e c o n d s   0 . 8 
 
 	 S l o t   S l o t _ R u n S c o p e   =   1 0 0 0 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l ) 
 
 	 I f   v 1   <   S o u n d L e v e l M i n 
 
 	 	 s 1   =   s 1   +   " E R R O R :   L e f t   l e v e l   t o o   l o w "   +   C R L F 
 
 	 E n d I f 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l 2 n d H a r m ) 
 
 	 I f   v 1   >   S o u n d D i s t 2 n d H a r m M a x 
 
 	 	 s 1   =   s 1   +   " E R R O R :   L e f t   s p e a k e r .   T o o   m u c h   d i s t o r t i o n   o n   t h e   2 n d   h a r m o n i c s "   +   C R L F 
 
 	 E n d I f 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l 3 r d H a r m ) 
 
 	 I f   v 1   >   S o u n d D i s t 3 r d H a r m M a x 
 
 	 	 s 1   =   s 1   +   " E R R O R :   L e f t   s p e a k e r .   T o o   m u c h   d i s t o r t i o n   o n   t h e   3 r d   h a r m o n i c s "   +   C R L F 
 
 	 E n d I f 
 
 	 S l o t   S l o t _ R u n S c o p e   =   0 
 
 	 
 
 	 ' - - - - - - - - - - - - - - - - - - - - - -   t e s t   a u d i o   r i g h t 
 
 	 D e s t X   =   0 1 4 
 
 	 D e s t Y   =   1 0 2 . 5 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 G o s u b     P E N   S I N G L E 
 
 	 W a i t   S e c o n d s   0 . 8 
 
 	 S l o t   S l o t _ R u n S c o p e   =   1 0 0 0 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l ) 
 
 	 I f   v 1   <   S o u n d L e v e l M i n 
 
 	 	 s 1   =   s 1   +   " E R R O R :   R i g h t   l e v e l   t o o   l o w "   +   C R L F 
 
 	 E n d I f 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l 2 n d H a r m ) 
 
 	 I f   v 1   >   S o u n d D i s t 2 n d H a r m M a x 
 
 	 	 s 1   =   s 1   +   " E R R O R :   R i g h t   s p e a k e r .   T o o   m u c h   d i s t o r t i o n   o n   t h e   2 n d   h a r m o n i c s "   +   C R L F 
 
 	 E n d I f 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l 3 r d H a r m ) 
 
 	 I f   v 1   >   S o u n d D i s t 3 r d H a r m M a x 
 
 	 	 s 1   =   s 1   +   " E R R O R :   R i g h t   s p e a k e r .   T o o   m u c h   d i s t o r t i o n   o n   t h e   3 r d   h a r m o n i c s "   +   C R L F 
 
 	 E n d I f 
 
 	 S l o t   S l o t _ R u n S c o p e   =   0 
 
 	 
 
 	 S l o t   3 9   =   0                                   ' < < < < < < < < < < < < < <   m a n u a l   s o u n d   s t o p 
 
 	 
 
 	 ' - - - - - - - - - - - - - - - - - - - - - -   t e s t   a u d i o   n o   s o u n d   l e f t / r i g h t 
 
 	 D e s t X   =   0 1 4 
 
 	 D e s t Y   =   0 9 6 . 2 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 G o s u b     P E N   S I N G L E 
 
 	 W a i t   S e c o n d s   0 . 8 
 
 	 S l o t   S l o t _ R u n S c o p e   =   1 0 0 0 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l ) 
 
 	 I f   v 1   >   S o u n d N o i s e M a x 
 
 	 	 s 1   =   s 1   +   " E R R O R :   T o o   m u c h   n o i s e "   +   C R L F 
 
 	 E n d I f 
 
 	 S l o t   S l o t _ R u n S c o p e   =   0 
 
 	 
 
 	 I f   s 1   =   " " 
 
 	 	 s 1   =   " T E S T   P A S S E D   O K " 
 
 	 E n d I f 
 
 	 P r i n t   s 1 
 
 R e t u r n 
 
 
 
 L a b e l     V O L U M E   T E S T 
 
 	 ' G o s u b   " Z E R O " 
 
 	 W i n d o w   M i n S i z e 
 
 	 B u t t o n   2 4   C o l o r   F l a s h i n g 8   L i g h t S t e e l B l u e   D a r k G r e e n 
 
 	 S o u n d L e v e l M i n   =   6 5 0 
 
 	 S o u n d N o i s e M a x   =   3 5 0 
 
 	 G o s u b   V o l u m e T e s t 
 
 	 W i n d o w   S i z a b l e 
 
 	 B u t t o n   2 4   C o l o r   L i g h t S t e e l B l u e 
 
 	 ' S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ S a f e R e m o v e . s e q " 
 
 	 ' G o s u b   E x e c S e q u e n c e 
 
 	 G o s u b     S T A N D   B Y 
 
 	 G o s u b   E v e n t S t o p 
 
 R e t u r n 
 
 
 
 L a b e l   V o l u m e T e s t 
 
 	 ' B e e p 
 
 	 ' w a i t   S e c o n d s   2 
 
 	 ' W a i t   K e y ( " S p a c e " ) 
 
 	 s 1   =   " " 
 
 	 ' - - - - - - - - - - - - - - - - - - - - - -   t e s t   a u d i o   v o l u m e   l e v e l   h i g h 
 
 	 G o s u b     V O L U M E   U P 
 
 	 W a i t   S e c o n d s   4 
 
 	 G o s u b     V O L U M E   O U T 
 
 	 S l o t   3 9   =   1 0 0 0                             ' < < < < < < < < < < < < < <   m a n u a l   s o u n d   s t a r t 
 
 	 W a i t   S e c o n d s   0 . 8 
 
 	 S l o t   S l o t _ R u n S c o p e   =   1 0 0 0 
 
 	 W a i t   S e c o n d s   0 . 2 3 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l ) 
 
 	 I f   v 1   <   S o u n d L e v e l M i n 
 
 	 	 s 1   =   s 1   +   " E R R O R :   L e f t   l e v e l   t o o   l o w "   +   C R L F 
 
 	 E n d I f 
 
 	 S l o t   S l o t _ R u n S c o p e   =   0 
 
 	 ' S l o t   3 9   =   0                                   ' < < < < < < < < < < < < < <   m a n u a l   s o u n d   s t o p 
 
 	 
 
 	 ' - - - - - - - - - - - - - - - - - - - - - -   t e s t   a u d i o   n o   s o u n d   l e f t / r i g h t 
 
 	 G o s u b     V O L U M E   D W 
 
 	 W a i t   S e c o n d s   4 
 
 	 G o s u b     V O L U M E   O U T 
 
 	 ' S l o t   3 9   =   1 0 0 0                             ' < < < < < < < < < < < < < <   m a n u a l   s o u n d   s t a r t 
 
 	 W a i t   S e c o n d s   0 . 8 
 
 	 S l o t   S l o t _ R u n S c o p e   =   1 0 0 0 
 
 	 W a i t   S e c o n d s   0 . 2 3 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l ) 
 
 	 I f   v 1   >   S o u n d N o i s e M a x 
 
 	 	 s 1   =   s 1   +   " E R R O R :   T o o   m u c h   n o i s e "   +   C R L F 
 
 	 E n d I f 
 
 	 S l o t   S l o t _ R u n S c o p e   =   0 
 
 	 S l o t   3 9   =   0                                   ' < < < < < < < < < < < < < <   m a n u a l   s o u n d   s t o p 
 
 	 I f   s 1   =   " " 
 
 	 	 s 1   =   " T E S T   P A S S E D   O K " 
 
 	 E n d I f 
 
 	 P r i n t   s 1 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     C O L O R   R E C O G N I T I O N 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   S l o t _ S 0 
 
 V a r i a b l e   N u m e r i c   S l o t _ S 1 
 
 V a r i a b l e   N u m e r i c   S l o t _ S 2 
 
 V a r i a b l e   N u m e r i c   S l o t _ S 3 
 
 V a r i a b l e   N u m e r i c   S l o t _ F r e q 
 
 
 
 L a b e l     C O L O R   T E S T 
 
 	 F i l e H e a d e r T e s t N a m e   =   " C O L O R   T E S T " 
 
 	 G o s u b   W r i t e F i l e H e a d e r 
 
 	 B e e p 
 
 	 W a i t   K e y ( " S p a c e " ) 
 
 	 B u t t o n   1 0   C o l o r   F l a s h i n g 8   R e d   S k y B l u e 
 
 	 
 
 	 G o s u b   R E D 
 
 	 W a i t   S e c o n d s   1 
 
 	 G o s u b     C O L O R   R E C O G N I T I O N 
 
 	 I f   s 1   =   " R E D " 
 
 	 	 s 1   =   " R e d   c o l o r   =   P a s s e d " 
 
 	 E l s e 
 
 	 	 s 1   =   " R e d   c o l o r   =   F a i l " 
 
 	 E n d I f 
 
 	 S a v e   S t r i n g T o F i l e   s 1   F i l e N a m e 
 
 	 
 
 	 G o s u b   G R E E N 
 
 	 W a i t   S e c o n d s   1 
 
 	 G o s u b     C O L O R   R E C O G N I T I O N 
 
 	 I f   s 1   =   " G R E E N " 
 
 	 	 s 1   =   " G r e e n   c o l o r   =   P a s s e d " 
 
 	 E l s e 
 
 	 	 s 1   =   " G r e e n   c o l o r   =   F a i l " 
 
 	 E n d I f 
 
 	 S a v e   S t r i n g T o F i l e   s 1   F i l e N a m e 
 
 	 
 
 	 G o s u b   B L U 
 
 	 W a i t   S e c o n d s   1 
 
 	 G o s u b     C O L O R   R E C O G N I T I O N 
 
 	 I f   s 1   =   " B L U " 
 
 	 	 s 1   =   " B l u   c o l o r   =   P a s s e d " 
 
 	 E l s e 
 
 	 	 s 1   =   " B l u   c o l o r   =   F a i l " 
 
 	 E n d I f 
 
 	 S a v e   S t r i n g T o F i l e   s 1   F i l e N a m e 
 
 	 
 
 	 B u t t o n   1 0   C o l o r   S k y B l u e 
 
 	 
 
 	 G o s u b     N O   C O L O R 
 
 R e t u r n 
 
 
 
 L a b e l     C O L O R   R E C O G N I T I O N 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - -   R E D   f i l t e r 
 
 	 S l o t   S l o t _ S 2   =   0 
 
 	 S l o t   S l o t _ S 3   =   0 
 
 	 W a i t   S e c o n d s   0 . 1 
 
 	 v 1   =   S l o t ( S l o t _ F r e q ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - -   G R E E N   f i l t e r 
 
 	 S l o t   S l o t _ S 2   =   1 0 0 0 
 
 	 S l o t   S l o t _ S 3   =   1 0 0 0 
 
 	 W a i t   S e c o n d s   0 . 1 
 
 	 v 2   =   S l o t ( S l o t _ F r e q ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - -   B L U   f i l t e r 
 
 	 S l o t   S l o t _ S 2   =   0 
 
 	 S l o t   S l o t _ S 3   =   1 0 0 0 
 
 	 W a i t   S e c o n d s   0 . 1 
 
 	 v 3   =   S l o t ( S l o t _ F r e q ) 
 
 	 ' '   - - - - - - - - - - - - - - - - - - - - - - - - -   C L E A R   f i l t e r 
 
 	 ' S l o t   S l o t _ S 2   =   1 0 0 0 
 
 	 ' S l o t   S l o t _ S 3   =   0 
 
 	 ' W a i t   S e c o n d s   0 . 2 
 
 	 ' v 4   =   S l o t ( S l o t _ F r e q ) 
 
         '   - - - - - - - - - - - - - - - - - - - - - - - - -   R E C O G N I Z E   C O L O R 
 
 	 I f   v 1   >   v 2   A n d   v 1   >   v 3 
 
 	 	 s 1   =   " R E D " 
 
 	 E l s e 
 
 	 	 I f   v 2   >   v 1   A n d   v 2   >   v 3 
 
 	 	 	 s 1   =   " G R E E N " 
 
 	 	 E l s e 
 
 	 	 	 I f   v 3   >   v 1   A n d   v 3   >   v 2 
 
 	 	 	 	 s 1   =   " B L U " 
 
 	 	 	 E n d I f 
 
 	 	 E n d I f 
 
 	 E n d I f 
 
 	 P r i n t   v 1   +   "   "   +   v 2   +   "   "   +   v 3   +   "   "   +   s 1 
 
 R e t u r n 
 
 
 
 L a b e l     T O U C H   T E S T 
 
 	 W i n d o w   M i n S i z e 
 
 	 B e e p 
 
 	 W a i t   K e y ( " S p a c e " ) 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ T o u c h T e s t . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 L a b e l     S t a r t   W X M   A p p T a b l e t 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S t a r t W X M _ A p p T a b l e t . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 L a b e l     S l i d e   P S W 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ S l i d e P s w . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 V a r i a b l e   S t r i n g   F i l e H e a d e r T e s t N a m e 
 
 L a b e l   W r i t e F i l e H e a d e r 
 
 	 s 1   =   " - - - - - - - - - - - - - - - - - - - - - - - - - "   +   C R L F 
 
 	 s 1   =   s 1   +   F i l e H e a d e r T e s t N a m e   +   C R L F 
 
 	 s 1   =   s 1   +   F o r m a t ( N o w ,   " d d / M M M / y y y y   H H : m m : s s " )   +   C R L F 
 
 	 s 1   =   s 1   +   " - - - - - - - - - - - - - - - - - - - - - - - - - " 
 
 	 S a v e   S t r i n g T o F i l e   s 1   F i l e N a m e 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S E Q U E N C E   L O A D I N G   A N D   E X E C U T I O N 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   S t r i n g   S e q u e n c e F i l e N a m e 
 
 V a r i a b l e   S t r i n g   S e q u e n c e 
 
 V a r i a b l e   S t r i n g   S e q u e n c e C m d 
 
 V a r i a b l e   N u m e r i c   S e q u e n c e I n d e x 
 
 V a r i a b l e   N u m e r i c   S e q u e n c e L e n g t h 
 
 
 
 L a b e l   E x e c S e q u e n c e 
 
 	 L o a d   S e q u e n c e   S e q u e n c e F i l e N a m e 
 
 	 I f   L e n ( S e q u e n c e )   =   0 
 
 	 	 C o n t r o l s   O p e n T e x t B o x 
 
 	 	 P r i n t   C R L F   +   "   S e q u e n c e   f i l e   n o t   f o u n d :   "   +   S e q u e n c e F i l e N a m e 
 
 	 	 B e e p 
 
 	 	 S t o p 
 
 	 E n d I f 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 	 V a r i a b l e   N u m e r i c   E x e c S e q u e n c e S t a r t T i m e 
 
 	 E x e c S e q u e n c e S t a r t T i m e   =   E l a p s e d T i m e 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 	 S e q u e n c e L e n g t h   =   G e t S e p a r a t e d S t r i n g C o u n t ( S e q u e n c e ,   C R L F ) 
 
 	 F o r   S e q u e n c e I n d e x   =   0   T o   S e q u e n c e L e n g t h - 1 
 
 	 	 S e q u e n c e C m d   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e ,   S e q u e n c e I n d e x ,   C R L F ) 
 
 	 	 S e q u e n c e C m d   =   R e p l a c e ( S e q u e n c e C m d ,   C h r ( 9 ) ,   "   " )   ' T A B S   t o   S P A C E S 
 
 	 	 S e q u e n c e C m d   =   R e m o v e C o m m e n t s ( S e q u e n c e C m d ) 
 
 	 	 S e q u e n c e C m d   =   T r i m ( S e q u e n c e C m d ) 
 
 	 	 ' 
 
 	 	 P r i n t   "   E x e c u t i n g   c o m m a n d :   "   +   S e q u e n c e C m d 
 
 	 	 ' 
 
 	 	 S e l e c t   U C a s e ( S e q u e n c e C m d ) 
 
                         '   - - - - - - - - - - - - - - - - - - -   e x i t   f r o m   t h e   s e q u e n c e   - - - - - - - - - - - - - 
 
 	 	 	 C a s e   " E N D S E Q " 
 
 	 	 	 	 S e q u e n c e I n d e x   =   S e q u e n c e L e n g t h - 1 
 
 	 	 	 '   - - - - - - - - - - - - - - - - - - -   s p e c i a l   m u l t i p l e   a c t i o n s   - - - - - - - - - - - 
 
 	 	 	 C a s e   " S L I D E " 	 	           '   s l i d e   b e f o r e   i n s e r t   P S W 
 
 	 	 	 	 G o s u b     S L I D E 
 
 	 	 	 C a s e   " Z E R O "                             '   m o v e   p e n   t o   X = 0   a n d   Y = 0   p o s i t i o n 
 
 	 	 	 	 G o s u b     Z E R O 
 
 	 	 	 C a s e   " A L L   O U T "                       '   a l l   p l u g   o u t 
 
 	 	 	 	 G o s u b     A L L   O U T 
 
 	 	 	 C a s e   " A L L   I N "                         '   a l l   p l u g   i n 
 
 	 	 	 	 G o s u b     A L L   I N 
 
 	 	       '   - - - - - - - - - - - - - - - - - - - - -   s i n g l e   a c t i o n   - - - - - - - - - - - - - - - - - - - - - - 
 
 	 	 	 C a s e   " P O W E R   I N "                     '   p o w e r   p l u g   i n 
 
 	 	 	 	 G o s u b     P O W E R   I N 
 
 	 	 	 C a s e   " P O W E R   O U T "                   '   p o w e r   p l u g   o u t 
 
 	 	 	 	 G o s u b     P O W E R   O U T 
 
 	 	 	 C a s e   " E N A B L E   M O T O R S "           ' e n a b l e   m o v e m e n t   m o t o r s 
 
 	 	 	 	 G o s u b     E N A B . M O T O R S 
 
 	 	 	 C a s e   " D I S A B L E   M O T O R S "         '   d i s a b l e   m o v e m e n t   m o t o r s 
 
 	 	 	 	 G o s u b     D I S A B . M O T O R S 
 
 	 	 	 C a s e   " P E N   U P "                         '   m o v e   p e n   u p 
 
 	 	 	 	 G o s u b     P E N   U P 
 
 	 	 	 C a s e   " P E N   D O W N "                     '   m o v e   p e n   d o w n 
 
 	 	 	 	 G o s u b     P E N   D O W N 
 
 	 	 	 C a s e   " P E N   S I N G L E "                 '   s i n g l e   c l i c k 
 
 	 	 	 	 G o s u b     P E N   S I N G L E 
 
 	 	 	 C a s e   " P E N   D O U B L E "                 '   d o u b l e   c l i c k 
 
 	 	 	 	 G o s u b     P E N   D O U B L E 
 
 	 	 	 C a s e   " P O W E R   C Y C L E "               '   p u s h   p o w e r   b u t t o n ,   w a i t   t h e n   r e l e a s e 
 
 	 	 	 	 ' G o s u b     P O W E R   C Y C L E 
 
 	 	 	 C a s e   " R O T A T E   H O R Z "               '   r o t a t e   t h e   t a b l e t   h o r i z o n t a l l y 
 
 	 	 	 	 G o s u b     R O T A T E   H O R Z 
 
 	 	 	 C a s e   " R O T A T E   M I D L "               '   r o t a t e   t h e   t a b l e t   6 0   d e g r e e 
 
 	 	 	 	 G o s u b     R O T A T E   M I D L 
 
 	 	 	 C a s e   " R O T A T E   V E R T "               '   r o t a t e   t h e   t a b l e t   v e r t i c a l l y 
 
 	 	 	 	 G o s u b     R O T A T E   V E R T 
 
 	 	 	 C a s e   " H D M I   I N " 
 
 	 	 	 	 G o s u b     H D M I   I N 
 
 	 	 	 C a s e   " H D M I   O U T " 
 
 	 	 	 	 G o s u b     H D M I   O U T 
 
 	 	 	 C a s e   " U S B 3   I N " 
 
 	 	 	 	 G o s u b     U S B 3   I N 
 
 	 	 	 C a s e   " U S B 3   O U T " 
 
 	 	 	 	 G o s u b     U S B 3   O U T 
 
 	 	 	 C a s e   " U S B C   I N " 
 
 	 	 	 	 G o s u b     U S B C   I N 
 
 	 	 	 C a s e   " U S B C   O U T " 
 
 	 	 	 	 G o s u b     U S B C   O U T 
 
 	 	 	 C a s e   " U S B P W R   I N " 
 
 	 	 	 	 G o s u b     U S B P W R   I N 
 
 	 	 	 C a s e   " U S B P W R   O U T " 
 
 	 	 	 	 G o s u b     U S B P W R   O U T 
 
 	 	 	 C a s e   " M E M O R Y   I N " 
 
 	 	 	 	 G o s u b     M E M O R Y   I N 
 
 	 	 	 C a s e   " M E M O R Y   O U T " 
 
 	 	 	 	 G o s u b     M E M O R Y   O U T 
 
 	 	 	 C a s e   " H E A R S E T   I N " 
 
 	 	 	 	 G o s u b     H E A R S E T   I N 
 
 	 	 	 C a s e   " H E A R S E T   O U T " 
 
 	 	 	 	 G o s u b     H E A R S E T   O U T 
 
 	 	 	 C a s e   " C L O S E   A L L " 
 
 	 	 	 	 G o s u b     C L O S E   A L L 
 
 	 	 	 '   - - - - - - - - - - - - - - - - - - -   d i s p l a y   a c t i o n s   - - - - - - - - - - - - - - - - - - - - - 
 
 	 	 	 C a s e   " B I T M A P " 
 
 	 	 	 	 G o s u b     B I T M A P 
 
 	 	 	 C a s e   " P H O T O " 
 
 	 	 	 	 G o s u b     P H O T O 
 
 	 	 	 C a s e   " V I D E O " 
 
 	 	 	 	 G o s u b     V I D E O 
 
 	 	 	 C a s e   " R E D " 
 
 	 	 	 	 G o s u b     R E D 
 
 	 	 	 C a s e   " G R E E N " 
 
 	 	 	 	 G o s u b     G R E E N 
 
 	 	 	 C a s e   " B L U " 
 
 	 	 	 	 G o s u b     B L U 
 
 	 	 	 C a s e   " N O   C O L O R " 
 
 	 	 	 	 G o s u b     N O   C O L O R 
 
 	 	 	 '   - - - - - - - - - - - - - - - - - - - - -   W A I T   M O T O R S   - - - - - - - - - - - - - - - - - - - - - - - 
 
 	 	 	 C a s e   " W A I T   M O T O R S " 
 
 	 	 	 	 G o s u b   W a i t M o t o r s 
 
 	 	 	 '   - - - - - - - - - - - - - - - - - - - - -   G E T   S Y S T E M   I N F O   - - - - - - - - - - - - - - - - - - - 
 
 	 	 	 C a s e   " G e t S y s t e m I n f o " 
 
 	 	 	 	 G o s u b     G e t S y s t e m I n f o 
 
 	 	 	 '   - - - - - - - - - - - - - - - - - - - - -   I s t r u c t i o n   w i t h   p a r a m e t e r s   - - - - - - - - 
 
 	 	 	 C a s e E l s e 
 
 	 	 	 	 s 1   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   0 ) 
 
 	 	 	 	 S e l e c t   U C a s e ( s 1 ) 
 
 	 	 	 	 	 C a s e   " M O V E " 
 
 	 	 	 	 	 	 D e s t X   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   1 ) 
 
 	 	 	 	 	 	 D e s t Y   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   2 ) 
 
 	 	 	 	 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 	 	 	 	 C a s e   " M O V E S L O W " 
 
 	 	 	 	 	 	 M o v e S l o w X Y _ D e s t X   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   1 ) 
 
 	 	 	 	 	 	 M o v e S l o w X Y _ D e s t Y   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   2 ) 
 
 	 	 	 	 	 	 M o v e S l o w X Y _ S p e e d   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   3 ) 
 
 	 	 	 	 	 	 G o s u b   M o v e S l o w X Y 
 
 	 	 	 	 	 C a s e   " D R A W C I R C L E " 
 
 	 	 	 	 	 	 D r a w C i r c l e _ X   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   1 ) 
 
 	 	 	 	 	 	 D r a w C i r c l e _ Y   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   2 ) 
 
 	 	 	 	 	 	 D r a w C i r c l e _ R a d i u s   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   3 ) 
 
 	 	 	 	 	 	 D r a w C i r c l e _ S p e e d   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   4 ) 
 
 	 	 	 	 	 	 G o s u b   D r a w C i r c l e 
 
 	 	 	 	 	 C a s e   " P A U S E " 
 
 	 	 	 	 	 	 W a i t   S e c o n d s   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   1 ) 
 
 	 	 	 	 	 C a s e   " P R E S S K E Y S " 
 
 	 	 	 	 	 	 S e q u e n c e C m d   =   M i d ( S e q u e n c e C m d ,   1 1 ) 
 
 	 	 	 	 	 	 P r e s s K e y s   S e q u e n c e C m d 
 
 	 	 	 	 	 C a s e   " S E N D K E Y S " 
 
 	 	 	 	 	 	 S e q u e n c e C m d   =   M i d ( S e q u e n c e C m d ,   1 0 ) 
 
 	 	 	 	 	 	 S e n d K e y s   S e q u e n c e C m d 
 
 	 	 	 	 	 C a s e   " P E N T Y P I N G " 
 
 	 	 	 	 	 	 P E N _ T O U C H _ T I M E   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   1 ) 
 
 	 	 	 	 	 	 G o s u b     P E N   T Y P I N G 
 
 	 	 	 	 	 C a s e E l s e 
 
 	 	 	 	 	 	 I f   s 1   < >   " " 
 
 	 	 	 	 	 	 	 C o n t r o l s   O p e n T e x t B o x 
 
 	 	 	 	 	 	 	 P r i n t   C R L F   +   "   U n r e c o g n i z e d   c o m m a n d :   "   +   S e q u e n c e C m d 
 
 	 	 	 	 	 	 	 B e e p 
 
 	 	 	 	 	 	 	 S t o p 
 
 	 	 	 	 	 	 E n d I f 
 
 	 	 	 	 E n d S e l e c t 
 
 	 	 E n d S e l e c t 
 
 	 N e x t 
 
 	 S e q u e n c e F i l e N a m e   =   R e p l a c e ( S e q u e n c e F i l e N a m e , " . s e q " , " " ) 
 
 	 P r i n t   S e q u e n c e F i l e N a m e   +   "   e x e c u t e d   i n   "   +   F o r m a t ( E l a p s e d T i m e   -   E x e c S e q u e n c e S t a r t T i m e ,   " 0 . 0 0 " )   +   "   s e c o n d s " 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     C O R E   X Y 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   D e s t X 	 	 	 	 '   d e s t i n a t i o n   i n   m m   c o o r d s 
 
 V a r i a b l e   N u m e r i c   D e s t Y 	 	 	 	 '   d e s t i n a t i o n   i n   m m   c o o r d s 
 
 
 
 V a r i a b l e   N u m e r i c   S l o t _ M o t o r A 
 
 V a r i a b l e   N u m e r i c   S l o t _ M o t o r B 
 
 V a r i a b l e   N u m e r i c   S l o t _ E n a b l e M o t o r s 
 
 V a r i a b l e   N u m e r i c   S l o t _ S e n s o r X 
 
 V a r i a b l e   N u m e r i c   S l o t _ S e n s o r Y 
 
 
 
 L a b e l   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t       '   m o v e   t o   d e s t X   &   d e s t Y   a n d   w a i t   s t o p   m o t o r s 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 G o s u b   W a i t M o t o r s 
 
 R e t u r n 
 
 
 
 L a b e l   C o r e X Y _ M o v e T o D e s t X Y 	 	 	 '   m o v e   t o   d e s t X   &   d e s t Y   ( w i t h   l i m i t s ) 
 
 	 D e s t X   =   L i m i t ( D e s t X ,   D e s t x M i n ,   D e s t x M a x ) 
 
 	 D e s t Y   =   L i m i t ( D e s t Y ,   q q q ,   D e s t y M a x ) 
 
 	 G o s u b   C o r e X Y _ P r e p a r e C o r e A B 
 
 	 S l o t ( S l o t _ M o t o r A )   =   C o r e A 
 
 	 S l o t ( S l o t _ M o t o r B )   =   C o r e B 
 
 R e t u r n 
 
 
 
 L a b e l   C o r e X Y _ M o v e T o D e s t X Y _ N o L i m i t s 	 '   m o v e   t o   d e s t X   &   d e s t Y   ( w i t h o u t   u s i n g   l i m i t s ) 
 
 	 G o s u b   C o r e X Y _ P r e p a r e C o r e A B 
 
 	 S l o t ( S l o t _ M o t o r A )   =   C o r e A 
 
 	 S l o t ( S l o t _ M o t o r B )   =   C o r e B 
 
 R e t u r n 
 
 
 
 L a b e l   C o r e X Y _ S e t N e w Z e r o 
 
         '   - - - - - - - - - - - - - - - - - - - - - - - - -   R e s e t   a x i s   X   a n d   Y 
 
 	 S l o t ( S l o t _ M o t o r A )   =   R e s e t 
 
 	 S l o t ( S l o t _ M o t o r B )   =   R e s e t 
 
 	 W a i t   S e c o n d s   0 . 1 5 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - -   S e t   r e s e t   v a l u e s   w i t h   C o r e X Y   c o r r e c t i o n 
 
 	 D e s t X   =   0 
 
 	 D e s t Y   =   0 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ N o L i m i t s 
 
 	 G o s u b   W a i t M o t o r s 
 
 R e t u r n 
 
 
 
 V a r i a b l e   N u m e r i c   C o r e A 
 
 V a r i a b l e   N u m e r i c   C o r e B 
 
 
 
 L a b e l   C o r e X Y _ P r e p a r e C o r e A B 
 
 	 C o r e A   =   ( D e s t X   -   D e s t Y )   /   2 
 
 	 C o r e B   =   ( D e s t X   +   D e s t Y )   /   2 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     H O M E 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   H o m e A x i s 
 
 V a r i a b l e   N u m e r i c   S l o t S e n s o r 
 
 V a r i a b l e   N u m e r i c   D e t a c h M M 
 
 V a r i a b l e   N u m e r i c   S p e e d S e a r c h 
 
 V a r i a b l e   N u m e r i c   S p e e d R e t u r n 
 
 V a r i a b l e   N u m e r i c   I n i t i a l P o s i t i o n 
 
 
 
 L a b e l   Z E R O 
 
 	 G o s u b   C o r e X Y _ S e t N e w Z e r o 
 
 	 G o s u b     E N A B . M O T O R S 
 
 	 G o s u b     P E N   U P 
 
 	 G o s u b   H o m e X 
 
 	 G o s u b   H o m e Y 
 
 	 G o s u b   C o r e X Y _ S e t N e w Z e r o 
 
 	 P r i n t   F o r m a t ( D e s t X ,   " 0 . 0 0 0 " )   +   "   "   +   F o r m a t ( D e s t Y ,   " 0 . 0 0 0 " ) 
 
 	 ' G o s u b   " D I S A B . M O T O R S " 
 
 R e t u r n 
 
 
 
 L a b e l   H o m e X 
 
 	 H o m e A x i s   =   0                 	     '   0   =   A x i s   X 
 
 	 S l o t S e n s o r   =   S l o t _ S e n s o r X   '   h o m e   s e n s o r   s l o t 
 
 	 D e t a c h M M   =   1 	 	 	     '   i n i t i a l   d e t a c h   m m   ( n e g   o r   p o s ) 
 
 	 S p e e d S e a r c h   =   - 0 . 3 3 	             '   d i r e c t i o n   a n d   s p e e d 
 
 	 S p e e d R e t u r n   =   + 0 . 0 5 	 	     '   D e t a c h   d i r e c t i o n   a n d   s p e e d 
 
 	 I n i t i a l P o s i t i o n   =   5 	 	     '   m o v e   t o   M M 
 
 	 G o s u b     H o m e 
 
 R e t u r n 
 
 
 
 L a b e l   H o m e Y 
 
 	 H o m e A x i s   =   1                 	     '   1   =   A x i s   Y 
 
 	 S l o t S e n s o r   =   S l o t _ S e n s o r Y   '   h o m e   s e n s o r   s l o t 
 
 	 D e t a c h M M   =   1 	 	 	     '   i n i t i a l   d e t a c h   m m   ( n e g   o r   p o s ) 
 
 	 S p e e d S e a r c h   =   - 0 . 3 	 	     '   d i r e c t i o n   a n d   s p e e d 
 
 	 S p e e d R e t u r n   =   + 0 . 0 5 	 	     '   D e t a c h   d i r e c t i o n   a n d   s p e e d 
 
 	 I n i t i a l P o s i t i o n   =   3 	 	     '   m o v e   t o   M M 
 
 	 G o s u b   H o m e 
 
 R e t u r n 
 
 
 
 L a b e l   H o m e 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - -   d e t a c h   i f   s e n s o r   i s   a c t i v e 
 
 	 I f   S l o t ( S l o t S e n s o r )   >   5 0 0   O r   K e y ( " C T R L " ) 
 
 	 	 I f   H o m e A x i s   =   0 
 
 	 	 	 D e s t X   =   D e s t X   +   D e t a c h M M 
 
 	 	 E l s e 
 
 	 	 	 D e s t Y   =   D e s t Y   +   D e t a c h M M 
 
 	 	 E n d I f 
 
 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ N o L i m i t s 
 
 	 	 G o s u b   W a i t M o t o r s 
 
 	 E n d I f 
 
         '   - - - - - - - - - - - - - - - - - - - - - - - - - -   s e a r c h   t h e   s e n s o r 
 
 L a b e l   S e a r c h H o m e 
 
 	 I f   H o m e A x i s   =   0 
 
 	 	 D e s t X   =   D e s t X   +   S p e e d S e a r c h 
 
 	 E l s e 
 
 	 	 D e s t Y   =   D e s t Y   +   S p e e d S e a r c h 
 
 	 E n d I f 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ N o L i m i t s 
 
 	 ' 
 
 	 W a i t   S e c o n d s   0 . 0 0 5 
 
 	 I f   S l o t ( S l o t S e n s o r )   >   5 0 0   O r   K e y ( " C T R L " ) 
 
 	 	 G o s u b   C o r e X Y _ S e t N e w Z e r o 
 
 	 	 G o t o   D e t a c h S e n s o r 
 
 	 E n d I f 
 
 G o t o   S e a r c h H o m e 
 
         '   - - - - - - - - - - - - - - - - - - - - - - - - - -   d e t a c h   f r o m   t h e   s e n s o r 
 
 L a b e l   D e t a c h S e n s o r 
 
 	 I f   H o m e A x i s   =   0 
 
 	 	 D e s t X   =   D e s t X   +   S p e e d R e t u r n 
 
 	 E l s e 
 
 	 	 D e s t Y   =   D e s t Y   +   S p e e d R e t u r n 
 
 	 E n d I f 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ N o L i m i t s 
 
 	 W a i t   S e c o n d s   0 . 0 0 5 
 
 	 I f   S l o t   ( S l o t S e n s o r )   <   5 0 0   O r   K e y ( " C T R L " ) 
 
 	 	 G o s u b   W a i t M o t o r s 
 
 	 	 G o s u b   C o r e X Y _ S e t N e w Z e r o 
 
 	 	 G o t o   M o v e T o I n i t i a l P o s i t i o n 
 
 	 E n d I f 
 
 G o t o   D e t a c h S e n s o r 
 
         '   - - - - - - - - - - - - - - - - - - - - - - - - - -   m o v e   t o   I n i t i a l P o s i t i o n 
 
 L a b e l   M o v e T o I n i t i a l P o s i t i o n 
 
 	 I f   H o m e A x i s   =   0 
 
 	 	 D e s t X   =   I n i t i a l P o s i t i o n 
 
 	 E l s e 
 
 	 	 D e s t Y   =   I n i t i a l P o s i t i o n 
 
 	 E n d I f 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ N o L i m i t s 
 
 	 G o s u b   W a i t M o t o r s 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     W A I T   u n t i l   t h e   m o t o r s   A   a n d   B   a r e   s t o p p e d 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 L a b e l   W a i t M o t o r s 
 
 	 W a i t   S e c o n d s   0 . 1                   '   t h i s   e n s u r e s   t h a t   t h e   m o t o r s   a r e   r u n n i n g 
 
 	 L a b e l   W a i t M o t o r s 1 
 
 	 	 I f   A b s ( S l o t ( S l o t _ M o t o r A   +   1 ) )   <   0 . 0 5 
 
 	 	 	 I f   A b s ( S l o t ( S l o t _ M o t o r B   +   1 ) )   <   0 . 0 5 
 
 	 	 	 	 R e t u r n 
 
 	 	 	 E n d I f 
 
 	 	 E n d I f 
 
 	 	 W a i t   S e c o n d s   0 . 0 0 5 
 
 	 G o t o   W a i t M o t o r s 1 
 
 G o t o   W a i t M o t o r s 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S E R V O - M O T O R S   M O V E M E N T S 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   P O W E R _ I N 
 
 V a r i a b l e   N u m e r i c   P O W E R _ O U T 
 
 V a r i a b l e   N u m e r i c   U S B 3 _ I N 
 
 V a r i a b l e   N u m e r i c   U S B 3 _ O U T 
 
 V a r i a b l e   N u m e r i c   U S B C _ I N 
 
 V a r i a b l e   N u m e r i c   U S B C _ O U T 
 
 V a r i a b l e   N u m e r i c   H D M I _ I N 
 
 V a r i a b l e   N u m e r i c   H D M I _ O U T 
 
 V a r i a b l e   N u m e r i c   U S B P W R _ I N 
 
 V a r i a b l e   N u m e r i c   U S B P W R _ O U T 
 
 V a r i a b l e   N u m e r i c   O N O F F _ I N 
 
 V a r i a b l e   N u m e r i c   O N O F F _ O U T 
 
 V a r i a b l e   N u m e r i c   V O L U M E _ I N _ U P 
 
 V a r i a b l e   N u m e r i c   V O L U M E _ O U T 
 
 V a r i a b l e   N u m e r i c   V O L U M E _ I N _ D W 
 
 V a r i a b l e   N u m e r i c   M E M O R Y _ I N 
 
 V a r i a b l e   N u m e r i c   M E M O R Y _ O U T 
 
 V a r i a b l e   N u m e r i c   H E A R S E T _ I N 
 
 V a r i a b l e   N u m e r i c   H E A R S E T _ O U T 
 
 V a r i a b l e   N u m e r i c   P E N _ D O W N 
 
 V a r i a b l e   N u m e r i c   P E N _ U P 
 
 V a r i a b l e   N u m e r i c   P E N _ T O U C H _ T I M E 
 
 
 
 V a r i a b l e   N u m e r i c   S L O T _ P O W E R 	 	 	 '   d i g i t a l   m o t o r   1 
 
 V a r i a b l e   N u m e r i c   S L O T _ U S B 3 	 	 	 '   d i g i t a l   m o t o r   2 
 
 V a r i a b l e   N u m e r i c   S L O T _ U S B C 	 	 	 '   d i g i t a l   m o t o r   3 
 
 V a r i a b l e   N u m e r i c   S L O T _ H D M I 	 	 	 '   d i g i t a l   m o t o r   4 
 
 V a r i a b l e   N u m e r i c   S L O T _ U S B P W R 	 	 '   d i g i t a l   m o t o r   5 
 
 V a r i a b l e   N u m e r i c   S L O T _ O N O F F 	 	 	 '   d i g i t a l   m o t o r   6 
 
 V a r i a b l e   N u m e r i c   S L O T _ V O L U M E 	 	 '   d i g i t a l   m o t o r   7 
 
 V a r i a b l e   N u m e r i c   S L O T _ M E M O R Y 	 	 '   d i g i t a l   m o t o r   8 
 
 V a r i a b l e   N u m e r i c   S L O T _ H E A R S E T 	 	 '   d i g i t a l   m o t o r   9 
 
 V a r i a b l e   N u m e r i c   S L O T _ P E N 	 	 	 '   d i g i t a l   m o t o r   1 0 
 
 V a r i a b l e   N u m e r i c   S L O T _ R O T A T 	 	 	 '   d i g i t a l   m o t o r   1 1 
 
 V a r i a b l e   N u m e r i c   S L O T _ T a b l e t P o w e r       '   T a b l l e t   p o w e r   s e n s i n g 
 
 
 
 ' L a b e l     S T A R T   L O O P 
 
 ' 	 v 2   =   I n p u t   " H o w   m a n y   l o o p s   ? " 
 
 ' 	 F o r   v 1   =   1   T o   v 2 
 
 ' 	 	 G o s u b   " A L L   I N " 
 
 ' 	 	 W a i t   S e c o n d s   0 . 5 
 
 ' 	 	 G o s u b   " A L L   O U T " 
 
 ' 	 	 W a i t   S e c o n d s   0 . 5 
 
 ' 	 N e x t 
 
 ' R e t u r n 
 
 
 
 L a b e l     P O W E R   O U T 
 
 	 M o v e _ S l o t   =   S L O T _ P O W E R 
 
 	 M o v e _ D e s t   =   P O W E R _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 	 B u t t o n   1   C o l o r   C h o c o l a t e 
 
 	 B u t t o n   2   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l     P O W E R   I N 
 
 	 M o v e _ S l o t   =   S L O T _ P O W E R 
 
 	 M o v e _ D e s t   =   P O W E R _ I N 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 	 B u t t o n   1   C o l o r   L i m e 
 
 	 B u t t o n   2   C o l o r   C h o c o l a t e 
 
 R e t u r n 
 
 
 
 L a b e l     U S B 3   O U T 
 
 	 M o v e _ S l o t   =   S L O T _ U S B 3 
 
 	 M o v e _ D e s t   =   U S B 3 _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     U S B 3   I N 
 
 	 M o v e _ S l o t   =   S L O T _ U S B 3 
 
 	 M o v e _ D e s t   =   U S B 3 _ I N 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     U S B C   I N 
 
 	 M o v e _ S l o t   =   S L O T _ U S B C 
 
 	 M o v e _ D e s t   =   U S B C _ I N 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     U S B C   O U T 
 
 	 M o v e _ S l o t   =   S L O T _ U S B C 
 
 	 M o v e _ D e s t   =   U S B C _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     H D M I   O U T 
 
 	 M o v e _ S l o t   =   S L O T _ H D M I 
 
 	 M o v e _ D e s t   =   H D M I _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     H D M I   I N 
 
 	 M o v e _ S l o t   =   S L O T _ H D M I 
 
 	 M o v e _ D e s t   =   H D M I _ I N 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     U S B P W R   O U T 
 
 	 M o v e _ S l o t   =   S L O T _ U S B P W R 
 
 	 M o v e _ D e s t   =   U S B P W R _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     U S B P W R   I N 
 
 	 M o v e _ S l o t   =   S L O T _ U S B P W R 
 
 	 M o v e _ D e s t   =   U S B P W R _ I N 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 
 
 L a b e l   R e c e i v e F i l e F r o m C O M 
 
 	 V a r i a b l e   S t r i n g   F i l e N a m e 
 
 	 V a r i a b l e   S t r i n g   S t r 1 
 
 	 ' 
 
 	 C O M   D i s c a r d I n B u f f e r 
 
 	 ' 
 
 	 S t r 1   =   " " 
 
 	 F o r   v 1   =   1   T o   9 e 9 9 
 
 	 	 s 1   =   C O M _ R e c e i v e d 
 
 	 	 I f   s 1   < >   " " 
 
 	 	 	 s 1   =   R e p l a c e ( s 1 ,   " { { { C R L F } } } " ,   C R L F ) 
 
 	 	 	 S t r 1   =   S t r 1   +   s 1 
 
 	 	 	 I f   s 1   =   " { { { F i l e E n d M a r k e r } } } " 
 
 	 	 	 	 S t r 1   =   R e p l a c e ( S t r 1 ,   " { { { F i l e E n d M a r k e r } } } " ,   " " ) 
 
 	 	 	 	 S a v e   D e l e t e F i l e   F i l e N a m e 
 
 	 	 	 	 S a v e   S t r i n g T o F i l e   S t r 1   F i l e N a m e 
 
 	 	 	 	 E x i t 
 
 	 	 	 E n d I f 
 
 	 	 E n d I f 
 
 	 	 W a i t   S e c o n d s   0 . 0 1 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 
 
 
 
 L a b e l     O N O F F   O U T 
 
 	 M o v e _ S l o t   =   S L O T _ O N O F F 
 
 	 M o v e _ D e s t   =   O N O F F _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     O N O F F   I N 
 
 	 M o v e _ S l o t   =   S L O T _ O N O F F 
 
 	 M o v e _ D e s t   =   O N O F F _ I N 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     V O L U M E   O U T 
 
 	 M o v e _ S l o t   =   S L O T _ V O L U M E 
 
 	 M o v e _ D e s t   =   V O L U M E _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     V O L U M E   U P 
 
 	 M o v e _ S l o t   =   S L O T _ V O L U M E 
 
 	 M o v e _ D e s t   =   V O L U M E _ I N _ U P 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     V O L U M E   D W 
 
 	 M o v e _ S l o t   =   S L O T _ V O L U M E 
 
 	 M o v e _ D e s t   =   V O L U M E _ I N _ D W 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     M E M O R Y   O U T 
 
 	 M o v e _ S l o t   =   S L O T _ M E M O R Y 
 
 	 M o v e _ D e s t   =   M E M O R Y _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     M E M O R Y   I N 
 
 	 M o v e _ S l o t   =   S L O T _ M E M O R Y 
 
 	 M o v e _ D e s t   =   M E M O R Y _ I N 
 
 	 M o v e _ S p e e d   =   3 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     H E A R S E T   O U T 
 
 	 M o v e _ S l o t   =   S L O T _ H E A R S E T 
 
 	 M o v e _ D e s t   =   H E A R S E T _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     H E A R S E T   I N 
 
 	 M o v e _ S l o t   =   S L O T _ H E A R S E T 
 
 	 M o v e _ D e s t   =   H E A R S E T _ I N 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     P E N   U P 
 
 	 M o v e _ S l o t   =   S L O T _ P E N 
 
 	 M o v e _ D e s t   =   P E N _ U P 
 
 	 S l o t ( M o v e _ S l o t )   =   M o v e _ D e s t 
 
 	 W a i t   S e c o n d s   0 . 1 
 
 R e t u r n 
 
 
 
 L a b e l     P E N   D O W N 
 
 	 M o v e _ S l o t   =   S L O T _ P E N 
 
 	 M o v e _ D e s t   =   P E N _ D O W N 
 
 	 S l o t ( M o v e _ S l o t )   =   M o v e _ D e s t 
 
 	 W a i t   S e c o n d s   0 . 1 
 
 R e t u r n 
 
 
 
 L a b e l     P E N   S I N G L E 
 
 	 G o s u b     P E N   D O W N 
 
 	 W a i t   S e c o n d s   0 . 3 5 
 
 	 G o s u b     P E N   U P 
 
 R e t u r n 
 
 
 
 L a b e l     P E N   D O U B L E 
 
 	 S l o t ( S L O T _ P E N )   =   P E N _ D O W N 
 
 	 W a i t   S e c o n d s   0 . 0 9 
 
 	 S l o t ( S L O T _ P E N )   =   P E N _ U P 
 
 	 W a i t   S e c o n d s   0 . 1 
 
 	 S l o t ( S L O T _ P E N )   =   P E N _ D O W N 
 
 	 W a i t   S e c o n d s   0 . 0 9 
 
 	 S l o t ( S L O T _ P E N )   =   P E N _ U P 
 
 R e t u r n 
 
 
 
 L a b e l     P E N   T Y P I N G 
 
 	 M o v e _ S l o t   =   S L O T _ P E N 
 
 	 M o v e _ D e s t   =   P E N _ D O W N 
 
 	 S l o t ( M o v e _ S l o t )   =   M o v e _ D e s t 
 
 	 W a i t   S e c o n d s   P E N _ T O U C H _ T I M E 
 
 	 M o v e _ S l o t   =   S L O T _ P E N 
 
 	 M o v e _ D e s t   =   P E N _ U P 
 
 	 S l o t ( M o v e _ S l o t )   =   M o v e _ D e s t 
 
 	 
 
 	 ' B u t t o n   1 0   T e x t     P E N   U P 
 
 R e t u r n 
 
 
 
 L a b e l     P O W E R   O N 
 
 	 G o s u b     U S B 3   I N 
 
 	 B u t t o n   4   C o l o r   F l a s h i n g 8   Y e l l o w 5   R e d 5 
 
 	 G o s u b     O N O F F   I N 
 
 	 W a i t   S e c o n d s   3 
 
 	 I f   S l o t ( S L O T _ T a b l e t P o w e r )   >   5 0 0 
 
 	 	 B u t t o n   4   C o l o r   P a l e G r e e n 
 
 	 	 B u t t o n   5   C o l o r   R e d 
 
 	 E l s e 
 
 	 	 P r i n t   " P O W E R   O N   F A I L U R E " 
 
 	 E n d I f 
 
 	 G o s u b     O N O F F   O U T 
 
 R e t u r n 
 
 
 
 L a b e l     P O W E R   O F F 
 
 	 G o s u b     U S B 3   I N 
 
 	 B u t t o n   4   C o l o r   Y e l l o w 6 
 
 	 B u t t o n   5   C o l o r   F l a s h i n g 8   Y e l l o w 5   R e d 5 
 
 	 G o s u b     O N O F F   I N 
 
 	 W a i t   S e c o n d s   1 0 
 
 	 I f   S l o t ( S L O T _ T a b l e t P o w e r )   <   5 0 0 
 
 	 	 B u t t o n   4   C o l o r   B l a c k 
 
 	 	 B u t t o n   5   C o l o r   B l a c k 
 
 	 E n d I f 
 
 	 G o s u b     O N O F F   O U T 
 
 R e t u r n 
 
 
 
 L a b e l     E N A B . M O T O R S 
 
 	 G o s u b   W a i t M o t o r s 
 
 	 S l o t ( S l o t _ E n a b l e M o t o r s )   =   1 0 0 0 
 
 ' I f   B u t t o n V i s i b l e ( 2 ) 
 
 ' 	 B u t t o n   2   T e x t   " D I S A B . M O T O R S " 
 
 ' 	 B u t t o n   2   C o l o r   G r e e n Y e l l o w 
 
 ' E n d I f 
 
 R e t u r n 
 
 
 
 L a b e l     D I S A B . M O T O R S 
 
 	 G o s u b   W a i t M o t o r s 
 
 	 S l o t ( S l o t _ E n a b l e M o t o r s )   =   0 
 
 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 ' 	 I f   B u t t o n V i s i b l e ( 3 ) 
 
 ' 	 B u t t o n   3   T e x t   " E N A B . M O T O R S " 
 
 ' 	 B u t t o n   3   C o l o r   R e d 
 
 ' E n d I f 
 
 R e t u r n 
 
 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S E R V O - M O T O R S   M O V E   S L O W 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   M o v e _ S l o t 
 
 V a r i a b l e   N u m e r i c   M o v e _ S p e e d 
 
 V a r i a b l e   N u m e r i c   M o v e _ D e s t 
 
 V a r i a b l e   N u m e r i c   M o v e _ P o s 
 
 
 
 L a b e l   M o v e S l o w 
 
 	 M o v e _ P o s   =   S l o t ( M o v e _ S l o t ) 
 
 	 I f   M o v e _ D e s t   >   M o v e _ P o s 
 
 	 	 M o v e _ P o s   =   M o v e _ P o s   +   M o v e _ S p e e d 
 
 	 	 I f   M o v e _ P o s   >   M o v e _ D e s t 
 
 	 	 	 M o v e _ P o s   =   M o v e _ D e s t 
 
 	 	 E n d I f 
 
 	 E l s e 
 
 	 	 M o v e _ P o s   =   M o v e _ P o s   -   M o v e _ S p e e d 
 
 	 	 I f   M o v e _ P o s   <   M o v e _ D e s t 
 
 	 	 	 M o v e _ P o s   =   M o v e _ D e s t 
 
 	 	 E n d I f 
 
 	 E n d I f 
 
 	 S l o t ( M o v e _ S l o t )   =   M o v e _ P o s 
 
 	 W a i t   S e c o n d s   0 . 0 1 
 
 	 I f   M o v e _ P o s   =   M o v e _ D e s t 
 
 	 	 R e t u r n 
 
 	 E n d I f 
 
 G o t o   M o v e S l o w 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S T E P P E R - M O T O R S   M O V E   S L O W 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   M o v e S l o w X Y _ D e s t X   	 '   d e s t i n a t i o n   i n   m m 
 
 V a r i a b l e   N u m e r i c   M o v e S l o w X Y _ D e s t Y   	 '   d e s t i n a t i o n   i n   m m 
 
 V a r i a b l e   N u m e r i c   M o v e S l o w X Y _ S p e e d   	 '   s p e e d   i n   m m / s e c 
 
 
 
 V a r i a b l e   N u m e r i c   M S V 1 
 
 V a r i a b l e   N u m e r i c   M S V 2 
 
 V a r i a b l e   N u m e r i c   M S V 3 
 
 V a r i a b l e   N u m e r i c   M S V 4 
 
 
 
 L a b e l   M o v e S l o w X Y 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   t e s t   f o r   v e r y   l o w   s p e e d 
 
 	 I f   M o v e S l o w X Y _ S p e e d   <   0 . 1 
 
 	 	 M o v e S l o w X Y _ S p e e d   =   1 
 
 	 E n d I f 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   t h e   m o v e m e n t   i n   m m 
 
 	 M S V 1   =   M o v e S l o w X Y _ D e s t X   -   D e s t X 
 
 	 M S V 2   =   M o v e S l o w X Y _ D e s t Y   -   D e s t Y 
 
 	 M S V 3   =   M S V 1   *   M S V 1 
 
 	 M S V 3   =   M S V 3   +   M S V 2   *   M S V 2 
 
 	 M S V 3   =   S q r t ( M S V 3 ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   t h e   l o o p s   c o u n t 
 
 	 M S V 4   =   M S V 3   /   0 . 0 1   ' < < <   l o o p   t i m e 
 
 	 M S V 4   =   I n t ( M S V 4   /   M o v e S l o w X Y _ S p e e d ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   t o o   m u c h   s p e e d   ? 
 
 	 I f   M S V 4   =   0 
 
 	 	 D e s t X   =   M o v e S l o w X Y _ D e s t X 
 
 	 	 D e s t Y   =   M o v e S l o w X Y _ D e s t Y 
 
 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 	 R e t u r n 
 
 	 E n d I f 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   p r e p a r e   t h e   i n c r e m e n t s 
 
 	 M S V 1   =   ( M o v e S l o w X Y _ D e s t X   -   D e s t X )   /   M S V 4 
 
 	 M S V 2   =   ( M o v e S l o w X Y _ D e s t Y   -   D e s t Y )   /   M S V 4 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   l o o p   f o r   v 4   t i m e s 
 
 	 F o r   M S V 3   =   1   T o   M S V 4 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   i n c r e m e n t ,   m o v e   a n d   w a i t 
 
 	 	 D e s t X   =   D e s t X   +   M S V 1 
 
 	 	 D e s t Y   =   D e s t Y   +   M S V 2 
 
 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 	 W a i t   S e c o n d s   0 . 0 1   ' < < <   l o o p   t i m e 
 
 	 N e x t 
 
 	 G o s u b   W a i t M o t o r s 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S T E P P E R - M O T O R S   D R A W   C I R C L E 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   D r a w C i r c l e _ X   	         '   C e n t e r   X   i n   m m 
 
 V a r i a b l e   N u m e r i c   D r a w C i r c l e _ Y   	         '   C e n t e r   Y   i n   m m 
 
 V a r i a b l e   N u m e r i c   D r a w C i r c l e _ R a d i u s     '   R a d i u s   i n   m m 
 
 V a r i a b l e   N u m e r i c   D r a w C i r c l e _ S p e e d   	 '   S p e e d   i n   m m / s e c 
 
 
 
 V a r i a b l e   N u m e r i c   D C V 1 
 
 V a r i a b l e   N u m e r i c   D C V 2 
 
 V a r i a b l e   N u m e r i c   D C V 3 
 
 V a r i a b l e   N u m e r i c   D C V 4 
 
 
 
 L a b e l   D r a w C i r c l e 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   t e s t   f o r   v e r y   l o w   s p e e d 
 
 	 I f   D r a w C i r c l e _ S p e e d   <   0 . 1 
 
 	 	 D r a w C i r c l e _ S p e e d   =   1 
 
 	 E n d I f 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   t h e   m o v e m e n t   i n   m m 
 
 	 D C V 3   =   D r a w C i r c l e _ R a d i u s   *   M a t h _ P I   *   2 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   t h e   l o o p s   c o u n t 
 
 	 D C V 4   =   D C V 3   /   0 . 0 1   ' < < <   l o o p   t i m e 
 
 	 D C V 4   =   I n t ( D C V 4   /   D r a w C i r c l e _ S p e e d ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   t o o   m u c h   s p e e d   ? 
 
 	 I f   D C V 4   <   1 6 
 
 	 	 D C V 4   =   1 6 
 
 	 E n d I f 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   p r e p a r e   t h e   i n c r e m e n t s 
 
 	 D C V 1   =   2   *   M a t h _ P I   /   D C V 4 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   l o o p   f o r   v 4   t i m e s 
 
 	 F o r   D C V 3   =   0   T o   D C V 4 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   c i r c l e 
 
 	 	 D C V 2   =   D C V 3   *   D C V 1 
 
 	 	 D e s t X   =   D r a w C i r c l e _ X   +   D r a w C i r c l e _ R a d i u s   *   S i n ( D C V 2 ) 
 
 	 	 D e s t Y   =   D r a w C i r c l e _ Y   +   D r a w C i r c l e _ R a d i u s   *   C o s ( D C V 2 ) 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   m o v e   a n d   w a i t 
 
 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 	 W a i t   S e c o n d s   0 . 0 1   ' < < <   l o o p   t i m e 
 
 	 N e x t 
 
 	 G o s u b   W a i t M o t o r s 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S T E P P E R - M O T O R S   a n d   P E N   a c t i o n   S L I D E 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   S l i d e _ D e s t X   	   '   d e s t i n a t i o n   i n   m m 
 
 V a r i a b l e   N u m e r i c   S l i d e _ D e s t Y   	   '   d e s t i n a t i o n   i n   m m 
 
 V a r i a b l e   N u m e r i c   S l i d e _ S p e e d   	   '   s p e e d   i n   m m / s e c 
 
 V a r i a b l e   N u m e r i c   S l i d e _ P e n U p T i m e   '   p e n - u p   t i m e   i n   m S   f r o m   s t a r t 
 
 
 
 V a r i a b l e   N u m e r i c   S L V 1 
 
 V a r i a b l e   N u m e r i c   S L V 2 
 
 V a r i a b l e   N u m e r i c   S L V 3 
 
 V a r i a b l e   N u m e r i c   S L V 4 
 
 V a r i a b l e   N u m e r i c   S L V 5 
 
 
 
 L a b e l   S L I D E 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 S l i d e _ D e s t X   =   5 0                                     ' 5 0 
 
 	 S l i d e _ D e s t Y   =   1 3 0                                   ' 1 3 0 
 
 	 S l i d e _ S p e e d   =   2 0 0                                   ' 2 0 0 
 
 	 S l i d e _ P e n U p T i m e   =   5 0 0                           ' 5 0 0 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   t h e   m o v e m e n t   i n   m m 
 
 	 S L V 1   =   S l i d e _ D e s t X   -   D e s t X 
 
 	 S L V 2   =   S l i d e _ D e s t Y   -   D e s t Y 
 
 	 S L V 3   =   S L V 1   *   S L V 1 
 
 	 S L V 3   =   S L V 3   +   S L V 2   *   S L V 2 
 
 	 S L V 3   =   S q r t ( S L V 3 ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   t h e   l o o p s   c o u n t 
 
 	 S L V 4   =   S L V 3   /   0 . 0 1   ' < < <   l o o p   t i m e 
 
 	 S L V 4   =   I n t ( S L V 4   /   S l i d e _ S p e e d ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   p r e p a r e   t h e   i n c r e m e n t s 
 
 	 S L V 1   =   ( S l i d e _ D e s t X   -   D e s t X )   /   S L V 4 
 
 	 S L V 2   =   ( S l i d e _ D e s t Y   -   D e s t Y )   /   S L V 4 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   p r e p a r e   t h e   p e n - u p   t i m e 
 
 	 S L V 5   =   S l i d e _ P e n U p T i m e   /   1 0 0 0 
 
 	 S L V 5   =   I n t ( S L V 5   /   0 . 0 1 )   ' < < <   l o o p   t i m e 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   p e n   d o w n 
 
 	 S l o t ( S L O T _ P E N )   =   P E N _ D O W N 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   l o o p   f o r   v 4   t i m e s 
 
 	 F o r   S L V 3   =   1   T o   S L V 4 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   i n c r e m e n t ,   m o v e   a n d   w a i t 
 
 	 	 D e s t X   =   D e s t X   +   S L V 1 
 
 	 	 D e s t Y   =   D e s t Y   +   S L V 2 
 
 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 	 W a i t   S e c o n d s   0 . 0 1   ' < < <   l o o p   t i m e 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   p e n   u p 
 
 	 	 I f   S L V 3   =   S L V 5 
 
 	 	 	 S l o t ( S L O T _ P E N )   =   P E N _ U P 
 
 	 	 E n d I f 
 
 	 N e x t 
 
 	 G o s u b   W a i t M o t o r s 
 
 	 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     R O T A T I O N S   V E R T I C A L / H O R I Z Z O N T A L 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   S l o t _ R o t H V _ D r i v e 
 
 V a r i a b l e   N u m e r i c   S l o t _ R o t H V _ C u r r e n t 
 
 V a r i a b l e   N u m e r i c   S l o t _ R o t H V _ M a x C u r r e n t 
 
 
 
 L a b e l     R O T A T E   V E R T 
 
 	 S l o t   9 9 8   =   6 0 0 	 	 	 ' s t a r t   S i g n a l   S c o p e 
 
 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 F o r   v 1   =   1   T o   1 3 0 0                 '   < < <   1 0 0 0   =   1 0   s e c   t i m e o u t   ( a p p r o x ) 
 
 	 	 W a i t   S e c o n d s   0 . 0 0 9 
 
 	 	 I f   S l o t ( S l o t _ R o t H V _ C u r r e n t )   >   S l o t _ R o t H V _ M a x C u r r e n t 
 
 	 	 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 	 	 S l o t   9 9 8   =   0 	 ' s t o p   S i g n a l   S c o p e 
 
 	 	 	 B u t t o n   1 2   L a b e l   " R O T A T E   H O R Z " 
 
 	 	 	 G o t o   E x i t R o t a t e V e r t 
 
 	 	 E n d I f 
 
 	 N e x t 
 
 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 S l o t   9 9 8   =   0 	 	 	 ' s t o p   S i g n a l   S c o p e 
 
 	 B u t t o n   1 2   L a b e l   " R O T A T E   H O R Z " 
 
 ' 
 
 L a b e l   E x i t R o t a t e V e r t 
 
 R e t u r n 
 
 
 
 L a b e l     R O T A T E   M I D L 
 
 	 S l o t   9 9 8   =   6 0 0 	 	 	 ' s t a r t   S i g n a l   S c o p e 
 
 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 F o r   v 1   =   1   T o   6 0 0                 '   < < <   1 0 0 0   =   1 0   s e c   t i m e o u t   ( a p p r o x ) 
 
 	 	 W a i t   S e c o n d s   0 . 0 0 9 
 
 	 	 I f   S l o t ( S l o t _ R o t H V _ C u r r e n t )   >   S l o t _ R o t H V _ M a x C u r r e n t 
 
 	 	 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 	 	 S l o t   9 9 8   =   0 	 ' s t o p   S i g n a l   S c o p e 
 
 	 	 	 G o t o   E x i t R o t a t e M i d l 
 
 	 	 E n d I f 
 
 	 N e x t 
 
 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 S l o t   9 9 8   =   0 	 	 	 ' s t o p   S i g n a l   S c o p e 
 
 ' 
 
 L a b e l   E x i t R o t a t e M i d l 
 
 R e t u r n 
 
 
 
 L a b e l     R O T A T E   H O R Z 
 
 	 S l o t   9 9 8   =   6 0 0 	 	 	 ' s t a r t   S i g n a l   S c o p e 
 
 	 S l o t   S l o t _ R o t H V _ D r i v e   =   0 
 
 	 W a i t   S e c o n d s   0 . 3 
 
 	 F o r   v 1   =   1   T o   1 3 0 0                 '   < < <   1 0 0 0   =   1 0   s e c   t i m e o u t   ( a p p r o x ) 
 
 	 	 W a i t   S e c o n d s   0 . 0 0 9 
 
 	 	 I f   S l o t ( S l o t _ R o t H V _ C u r r e n t )   >   S l o t _ R o t H V _ M a x C u r r e n t 
 
 	 	 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 	 	 S l o t   9 9 8   =   0 	 ' s t o p   S i g n a l   S c o p e 
 
 	 	 	 B u t t o n   1 2   L a b e l     R O T A T E   V E R T 
 
 	 	 	 G o t o   E x i t R o t a t e H o r z 
 
 	 	 E n d I f 
 
 	 N e x t 
 
 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 S l o t   9 9 8   =   0 	 	 	 ' s t o p   S i g n a l   S c o p e 
 
 	 B u t t o n   1 2   L a b e l     R O T A T E   V E R T 
 
 	 ' 
 
 L a b e l   E x i t R o t a t e H o r z 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     J O G   W I T H   M O U S E 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   J o g _ E n a b l e _ S l o t 
 
 V a r i a b l e   N u m e r i c   J o g _ R a n g e X 
 
 V a r i a b l e   N u m e r i c   J o g _ R a n g e Y 
 
 V a r i a b l e   N u m e r i c   J o g _ A c t i v e 
 
 
 
 L a b e l     J O G   w i t h   M o u s e 
 
 	 G o s u b     E N A B . M O T O R S 
 
 	 B u t t o n   8   L a b e l     " J O G   S T O P " 
 
 	 J o g _ A c t i v e   =   1 
 
 	 L a b e l   J o g 2 
 
 	 	 I f   S l o t ( J o g _ E n a b l e _ S l o t )   >   5 0 0 
 
 	 	 	 D e s t X   =   M o u s e X   *   J o g _ R a n g e X 
 
 	 	 	 D e s t Y   =   M o u s e Y   *   J o g _ R a n g e Y 
 
 	 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 	 	 P r i n t   F o r m a t ( D e s t X ,   " 0 . 0 0 0 " )   +   "   "   +   F o r m a t ( D e s t Y ,   " 0 . 0 0 0 " ) 
 
 	 	 E n d I f 
 
 	 	 I f   J o g _ A c t i v e   =   0 
 
 	 	 	 R e t u r n 
 
 	 	 E n d I f 
 
 	 G o t o   J o g 2 
 
 R e t u r n 
 
 
 
 L a b e l     J O G   S T O P 
 
 	 B u t t o n   8   L a b e l   " J O G   w i t h   M o u s e " 
 
 	 J o g _ A c t i v e   =   0 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     J O G   w i t h   k e y b o a r d 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 L a b e l   E x e c K e y s 
 
 	 V a r i a b l e   N u m e r i c   K e y J o g _ S p e e d 
 
 	 V a r i a b l e   N u m e r i c   J o g S p e e d 
 
 	 J o g S p e e d   =   K e y J o g _ S p e e d   /   1 0 0 
 
 	 S e l e c t   T r u e 
 
 	 	 C a s e   K e y ( " S H I F T " ) 
 
 	 	 	 J o g S p e e d   =   J o g S p e e d   *   0 . 1 
 
 	 	 C a s e   K e y ( " C T R L " ) 
 
 	 	 	 J o g S p e e d   =   J o g S p e e d   *   0 . 0 1 
 
 	 	 C a s e   K e y ( " A L T " ) 
 
 	 	 	 J o g S p e e d   =   J o g S p e e d   *   0 . 0 0 1 
 
 	 E n d S e l e c t 
 
 	 ' 
 
 	 I f   K e y ( " R i g h t " ) 
 
 	 	 D e s t X   =   D e s t X   +   J o g S p e e d 
 
 	 E n d I f 
 
 	 I f   K e y ( " L e f t " ) 
 
 	 	 D e s t X   =   D e s t X   -   J o g S p e e d 
 
 	 E n d I f 
 
 	 ' 
 
 	 I f   K e y ( " U p " ) 
 
 	 	 D e s t Y   =   D e s t Y   +   J o g S p e e d 
 
 	 E n d I f 
 
 	 I f   K e y ( " D o w n " ) 
 
 	 	 D e s t Y   =   D e s t Y   -   J o g S p e e d 
 
 	 E n d I f 
 
 	 ' 
 
 	 ' I f   K e y ( " P a g e U p " ) 
 
 	 ' 	 S l o t   S l o t _ Z   =   L i m i t ( S l o t ( S l o t _ Z )   +   J o g S p e e d ,   Z m i n ,   Z m a x ) 
 
 	 ' E n d I f 
 
 	 ' I f   K e y ( " P a g e D o w n " ) 
 
 	 ' 	 S l o t   S l o t _ Z   =   L i m i t ( S l o t ( S l o t _ Z )   -   J o g S p e e d ,   Z m i n ,   Z m a x ) 
 
 	 ' E n d I f 
 
 	 ' 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 G o s u b   P r i n t V a l u e s 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     P R I N T   C O O R D I N A T E S 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 L a b e l   P r i n t V a l u e s 
 
 	 s 1   =               " D e s t X = "   +   F o r m a t ( D e s t X ,   " 0 . 0 0 0 " ) 
 
 	 s 1   =   s 1   +   "   D e s t Y = "   +   F o r m a t ( D e s t Y ,   " 0 . 0 0 0 " ) 
 
 	 P r i n t   C R L F   +   s 1 
 
 R e t u r n 
 
 
 
 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '           N a m e :   C o n t r o l _ 7 8 _ N e w H o m i n g . t x t                               D a t e :   0 8   S e t   2 0 2 0 
 
 '         A u t o r :   L e o n a r d o   D E   P A L O 
 
 '         S c o p e :   T e s t   C O R E X Y   f r o m   W i n g o 
 
 '   H a r d w a r e :   S t a n d a r d   M a s t e r . 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 
 
 O p t i o n   S p e e d   9 
 
 
 
 C O M   O p e n   1   1 1 5 2 0 0 
 
 
 
 S p e e d S e a r c h   =   - 0 . 3 3 3 3 	             '   d i r e c t i o n   a n d   s p e e d 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   O p t i o n s 
 
 K e y J o g _ S p e e d   =   1 0 0 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   S o f t w a r e   l i m i t s 
 
 D e s t x M a x   =       2 5 6 
 
 D e s t x M i n   =           5 
 
 D e s t y M a x   =       1 4 4 
 
 q q q   =           5 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   M O T O R S   A S S I G N E M E N T S 
 
 P O W E R _ I N               =   3 6 3 	 '   m a i n   p o w e r   p l u g   i n s e r t 
 
 P O W E R _ O U T             =   6 6 5         '   m a i n   p o w e r   p l u g   o u t 
 
 
 
 U S B 3 _ I N                 =   2 1 2 
 
 U S B 3 _ O U T               =   6 2 0 
 
 
 
 U S B C _ I N                 =   3 8 4 
 
 U S B C _ O U T               =   6 7 0 
 
 H D M I _ I N                 =   9 9 5 
 
 H D M I _ O U T               =   7 8 7 
 
 U S B P W R _ I N             =   2 0 5 
 
 U S B P W R _ O U T           =   4 7 0 
 
 O N O F F _ I N               =   7 5 0 
 
 O N O F F _ O U T             =   2 9 5 
 
 
 
 V O L U M E _ I N _ U P       =   6 9 7 
 
 V O L U M E _ O U T           =   7 5 4 
 
 V O L U M E _ I N _ D W       =   7 9 4 
 
 
 
 M E M O R Y _ I N             =   3 0 0 
 
 M E M O R Y _ O U T           =   6 0 4 
 
 H E A R S E T _ I N           =   8 6 5 
 
 H E A R S E T _ O U T         =   5 6 5 
 
 P E N _ D O W N               =   5 6 0 
 
 P E N _ U P                   =   1 8 9 
 
 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   S T E P P E R   S L O T S 
 
 S l o t _ M o t o r A                 =     1 	 	 	 ' 1 _ T a b T e s t e r X Y   p i n     1   S T E P P E R 
 
 S l o t _ M o t o r B                 =     3 	 	 	 ' 1 _ T a b T e s t e r X Y   p i n     3   S T E P P E R 
 
 S l o t _ S e n s o r X               =     7 	 	 	 ' 1 _ T a b T e s t e r X Y   p i n     7   D I G   I N P U 
 
 S l o t _ S e n s o r Y               =     8 	 	 	 ' 1 _ T a b T e s t e r X Y   p i n     8   D I G   I N P U 
 
 S l o t _ E n a b l e M o t o r s     =   1 0 	 	 	 ' 1 _ T a b T e s t e r X Y   p i n   1 0   D I G   O U T 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   D I G I T A L   M O T O R   S L O T S 
 
 S L O T _ U S B 3                     =   1 3   	 	 ' 2 _ T a b T e s t e r M o t   p i n   1   P W M 1 6 
 
 S L O T _ U S B C                     =   1 4                   ' 2 _ T a b T e s t e r M o t   p i n   2   P W M 1 6 
 
 S L O T _ H D M I                     =   1 5 	 	 	 ' 2 _ T a b T e s t e r M o t   p i n   3   P W M 1 6 
 
 S L O T _ U S B P W R                 =   1 6 	 	 	 ' 2 _ T a b T e s t e r M o t   p i n   4   P W M 1 6 
 
 S L O T _ O N O F F                   =   1 7 	 	 	 ' 2 _ T a b T e s t e r M o t   p i n   5   P W M 1 6 
 
 S L O T _ P O W E R   	 	       =   1 8 	 	 	 ' 2 _ T a b T e s t e r M o t   p i n   6   s o f t w a r e   c o n t r o l   S E R V O 1 6 
 
 S L O T _ V O L U M E                 =   2 5 	 	 	 ' 3 _ T a b T e s t e r M o t   p i n   1   P W M 1 6 
 
 S L O T _ M E M O R Y                 =   2 6 	 	 	 ' 3 _ T a b T e s t e r M o t   p i n   2   P W M 1 6 
 
 S L O T _ H E A R S E T               =   2 7 	 	 	 ' 3 _ T a b T e s t e r M o t   p i n   3   P W M 1 6 
 
 S L O T _ P E N                       =   2 9 	 	 	 ' 3 _ T a b T e s t e r M o t   p i n   4   P W M 1 6 
 
 S L O T _ R O T A T 	               =   2 8 	 	 	 ' 3 _ T a b T e s t e r M o t   p i n   5   P W M 1 6 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   T A B L E T   P O W E R 
 
 S L O T _ T a b l e t P o w e r       =     9                   '   1 0 0 0   =   T a b l e t   o n 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   R O T A T I O N   H / V 
 
 S l o t _ R o t H V _ D r i v e             =   2 8             ' 3 0 	 	 '   s l o t 
 
 S l o t _ R o t H V _ C u r r e n t         =   6 0             ' 3 1 	 	 '   s l o t 
 
 S l o t _ R o t H V _ M a x C u r r e n t   =   6 0 0 0         ' P e r i o d   f o r   t h e   m a x   c u r r e n t 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   S L O T S   F O R   S O U N D   T E S T S 
 
 S l o t _ R u n S c o p e                     =   3 7 
 
 S l o t _ S o u n d L e v e l                 =   4 1 
 
 S l o t _ S o u n d L e v e l 2 n d H a r m   =   4 3 
 
 S l o t _ S o u n d L e v e l 3 r d H a r m   =   4 5 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   J O G   W I T H   M O U S E 
 
 J o g _ R a n g e X                 =   2 5 6                 ' 2 8 8 
 
 J o g _ R a n g e Y                 =   1 4 4 
 
 J o g _ E n a b l e _ S l o t       =   3 4 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   C O L O R   R E C O G N I T I O N 
 
 S l o t _ S 0       =     2 4 
 
 S l o t _ S 1       =     2 3 
 
 S l o t _ S 2       =     2 1 
 
 S l o t _ S 3       =     2 0 
 
 S l o t _ F r e q   =     2 2 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   F I L E   S E T   U P 
 
 '   V a r i a b l e   S t r i n g   F i l e N a m e 
 
 '   F i l e N a m e   =   " T e s t _ R e s u l t s . t x t " 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   L O A D   A P P S 
 
 L o a d   T h e r e m i n o _ H A L \ T h e r e m i n o _ H A L . e x e 
 
 L o a d   T h e r e m i n o _ H A L \ T h e r e m i n o _ S l o t V i e w e r . e x e 
 
 
 
 ' L o a d   T h e r e m i n o _ M i c r o V i d e o \ T h e r e m i n o _ M i c r o V i d e o . e x e 
 
 ' L o a d   T h e r e m i n o _ A u d i o G e n e r a t o r \ T h e r e m i n o _ A u d i o G e n e r a t o r . e x e 
 
 ' L o a d   T h e r e m i n o _ A u d i o I n p u t \ T h e r e m i n o _ A u d i o I n p u t . e x e 
 
 ' L o a d   T h e r e m i n o _ H A L \ T h e r e m i n o _ S i g n a l S c o p e . e x e 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   K E Y S 
 
 K e y   R i g h t 	 	 G o s u b   E x e c K e y s 
 
 K e y   L e f t   	 	 G o s u b   E x e c K e y s 
 
 K e y   U p   	 	 	 G o s u b   E x e c K e y s 
 
 K e y   D o w n   	 	 G o s u b   E x e c K e y s 
 
 K e y   P a g e u p 	 	 G o s u b   P E N   U P 
 
 K e y   P a g e d o w n 	 G o s u b   P E N   D O W N 
 
 K e y   E n d           	 G o s u b   P E N   S I N G L E 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   S T A R T 
 
 L o a d   T o c . w a v 
 
 O p t i o n   S p e e d   9 
 
 
 
 S l o t   S l o t _ S 0   =   1 0 0 0 
 
 S l o t   S l o t _ S 1   =   1 0 0 0 
 
 
 
 ' W i n d o w   M i n S i z e 
 
 
 
 D e s t X   =   v 1 
 
 D e s t Y   =   v 2 
 
 
 
 G o s u b     V O L U M E   O U T 
 
 G o s u b     P E N   U P 
 
 G o s u b     M A I N   M E N U 
 
 
 
 S t o p 	 	 	 	 	 	 	 	 	 	 	 	 ' 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 V a r i a b l e   N u m e r i c   D e s t x M a x 
 
 V a r i a b l e   N u m e r i c   D e s t x M i n 
 
 V a r i a b l e   N u m e r i c   D e s t y M a x 
 
 V a r i a b l e   N u m e r i c   q q q 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 L a b e l     C L E A R   B U T T O N S 
 
 	 F o r   v 1   =   1   T o   3 2 
 
 	 	 B u t t o n   v 1   T e x t   " " 
 
 	 	 B u t t o n   v 1   C o l o r   M o c c a s i n 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 L a b e l     C L O S E   A L L 
 
 	 L o a d   C l o s e A p p s 
 
 R e t u r n 
 
 
 
 L a b e l   E v e n t S t o p 
 
 	 W i n d o w   S i z a b l e 
 
 E n d 
 
 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 '       M E N U 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 L a b e l     M A I N   M E N U 
 
 	 G o s u b     C L E A R   B U T T O N S 
 
 	 B u t t o n   1   L a b e l     D I S P L A Y 
 
 	 B u t t o n   1   C o l o r   S k y B l u e 
 
 	 B u t t o n   2   L a b e l     T O U C H 
 
 	 B u t t o n   2   C o l o r   L i g h t S t e e l B l u e 
 
 	 B u t t o n   3   L a b e l     A U D I O 
 
 	 B u t t o n   3   C o l o r   L i g h t G r e e n 
 
 	 
 
 	 B u t t o n   4   L a b e l     P L U G 
 
 	 B u t t o n   4   C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   5   L a b e l     W i - F i 
 
 	 B u t t o n   5   C o l o r   H o t P i n k 
 
 	 B u t t o n   6   L a b e l     B L U E T O O T H 
 
 	 B u t t o n   6   C o l o r   R o y a l B l u e 
 
 	 B u t t o n   7   L a b e l     P O W E R 
 
 	 B u t t o n   7   C o l o r   C h o c o l a t e 
 
 	 B u t t o n   8   L a b e l     V I R T U A L   K e y 
 
 	 B u t t o n   8   C o l o r   S l a t e G r a y 
 
 	 B u t t o n   9   L a b e l     M E C H A N I C A L 
 
 	 B u t t o n   9   C o l o r   G a i n s b o r o 
 
 	 B u t t o n   1 0   L a b e l     M I S C E L L A N E A 
 
 	 B u t t o n   1 0   C o l o r   D a r k C y a n 
 
 	 
 
 	 B u t t o n   1 5   L a b e l     C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l   D I S P L A Y 
 
 	 G o s u b     C L E A R   B U T T O N S 
 
 	 B u t t o n   1     L a b e l     L U M I N O S I T Y 
 
 	 B u t t o n   1     C o l o r   S k y B l u e 
 
 	 B u t t o n   2     L a b e l     R E D 
 
 	 B u t t o n   2     C o l o r   R e d 
 
 	 B u t t o n   3     L a b e l     G R E E N 
 
 	 B u t t o n   3     C o l o r   G r e e n 
 
 	 B u t t o n   4     L a b e l     B L U 
 
 	 B u t t o n   4     C o l o r   B l u e 
 
 	 B u t t o n   5     L a b e l     W H I T E 
 
 	 B u t t o n   5     C o l o r   W h i t e 
 
 	 B u t t o n   6     L a b e l     B I T M A P 
 
 	 B u t t o n   6     C o l o r   S k y B l u e 
 
 	 B u t t o n   7     L a b e l     P H O T O 
 
 	 B u t t o n   7     C o l o r   S k y B l u e 
 
 	 B u t t o n   8     L a b e l     V I D E O 
 
 	 B u t t o n   8     C o l o r   S k y B l u e 
 
 	 B u t t o n   9     L a b e l     N O   C o l o r 
 
 	 B u t t o n   9     C o l o r   S k y B l u e 
 
 	 B u t t o n   1 0   L a b e l     C o l o r   T E S T 
 
 	 B u t t o n   1 0   C o l o r   S k y B l u e 
 
 	 ' B u t t o n   1 1   T e x t     - - - - - - - - 
 
 	 ' B u t t o n   1 1   C o l o r   S k y B l u e 
 
 	 B u t t o n   1 2   L a b e l     T O U C H   T E S T 
 
 	 B u t t o n   1 2   C o l o r   S k y B l u e 
 
 	 B u t t o n   1 3   L a b e l     C o l o r   R E C O G N I T I O N 
 
 	 B u t t o n   1 3   C o l o r   S k y B l u e 
 
 	 
 
 	 B u t t o n   1 4   L a b e l     M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   L a b e l     C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l     T O U C H 
 
 	 G o s u b     C L E A R   B U T T O N S 
 
 	 B u t t o n   1   L a b e l     P E N   U P 
 
 	 B u t t o n   1   C o l o r   L i g h t S t e e l B l u e 
 
 	 B u t t o n   2   L a b e l     P E N   D O W N 
 
 	 B u t t o n   2   C o l o r   L i g h t S t e e l B l u e 
 
 	 B u t t o n   3   L a b e l     P E N   S I N G L E 
 
 	 B u t t o n   3   C o l o r   L i g h t S t e e l B l u e 
 
 	 B u t t o n   4   L a b e l     P E N   D O U B L E 
 
 	 B u t t o n   4   C o l o r   L i g h t S t e e l B l u e 
 
 	 B u t t o n   5   L a b e l     S L I D E 
 
 	 B u t t o n   5   C o l o r   L i g h t S t e e l B l u e 
 
 	 B u t t o n   6   L a b e l     S L I D E   P S W 
 
 	 B u t t o n   6   C o l o r   L i g h t S t e e l B l u e 
 
 	 B u t t o n   7   L a b e l     T O U C H   T E S T 
 
 	 B u t t o n   7   C o l o r   L i g h t S t e e l B l u e 
 
 	 B u t t o n   8   L a b e l     J O G   w i t h   M o u s e 
 
 	 B u t t o n   8   C o l o r   L i g h t S t e e l B l u e 
 
 	 B u t t o n   1 0   L a b e l     S t a r t   W X M   A p p T a b l e t 
 
 	 B u t t o n   1 0   C o l o r   L i g h t S t e e l B l u e 
 
 	 
 
 	 B u t t o n   1 4   L a b e l     M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   L a b e l     C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l     A U D I O 
 
 	 G o s u b     C L E A R   B U T T O N S 
 
 	 B u t t o n   1   L a b e l     H E A R S E T   I N 
 
 	 B u t t o n   1   C o l o r   L i g h t G r e e n 
 
 	 B u t t o n   2   L a b e l     H E A R S E T   O U T 
 
 	 B u t t o n   2   C o l o r   L i g h t G r e e n 
 
 	 B u t t o n   3   L a b e l     V O L U M E   O U T 
 
 	 B u t t o n   3   C o l o r   L i g h t G r e e n 
 
 	 B u t t o n   4   L a b e l     V O L U M E   U P 
 
 	 B u t t o n   4   C o l o r   L i g h t G r e e n 
 
 	 B u t t o n   5   L a b e l     V O L U M E   D W 
 
 	 B u t t o n   5   C o l o r   L i g h t G r e e n 
 
 	 B u t t o n   6   L a b e l     V O L U M E   T E S T 
 
 	 B u t t o n   6   C o l o r   L i g h t G r e e n 
 
 	 B u t t o n   7   L a b e l     S P E A K . D I S T . 
 
 	 B u t t o n   7   C o l o r   L i g h t G r e e n 
 
 	 B u t t o n   8   L a b e l     T e s t H e a r s e t 
 
 	 B u t t o n   8   C o l o r   L i g h t G r e e n 
 
 	 
 
 	 B u t t o n   1 4   L a b e l     M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   L a b e l     C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l     P L U G 
 
 	 G o s u b     C L E A R   B U T T O N S 
 
 	 B u t t o n   1   L a b e l     P O W E R   I N 
 
 	 B u t t o n   1   C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   2   L a b e l     P O W E R   O U T 
 
 	 B u t t o n   2   C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   3     L a b e l     M E M O R Y   I N 
 
 	 B u t t o n   3     C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   4     L a b e l     M E M O R Y   O U T 
 
 	 B u t t o n   4     C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   5     L a b e l     U S B 3   I N 
 
 	 B u t t o n   5     C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   6     L a b e l     U S B 3   O U T 
 
 	 B u t t o n   6     C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   7     L a b e l     U S B C   I N 
 
 	 B u t t o n   7     C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   8     L a b e l     U S B C   O U T 
 
 	 B u t t o n   8     C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   9     L a b e l     H D M I   I N 
 
 	 B u t t o n   9     C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   1 0     L a b e l     H D M I   O U T 
 
 	 B u t t o n   1 0     C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   1 1     L a b e l     H E A R S E T   I N 
 
 	 B u t t o n   1 1     C o l o r   M e d i u m A q u a m a r i n e 
 
 	 B u t t o n   1 2     L a b e l     H E A R S E T   O U T 
 
 	 B u t t o n   1 2   C o l o r   M e d i u m A q u a m a r i n e 
 
 	 
 
 	 B u t t o n   1 4   L a b e l     M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   L a b e l     C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l     W i - F i 
 
 	 G o s u b     C L E A R   B U T T O N S 
 
 	 B u t t o n   1   L a b e l     E M P T Y   1 
 
 	 B u t t o n   1   C o l o r   H o t P i n k 
 
 	 B u t t o n   2   L a b e l     E M P T Y   2 
 
 	 B u t t o n   2   C o l o r   H o t P i n k 
 
 	 B u t t o n   3   L a b e l     E M P T Y   3 
 
 	 B u t t o n   3   C o l o r   H o t P i n k 
 
 	 
 
 	 B u t t o n   1 4   L a b e l     M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   L a b e l     C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l     B L U E T O O T H 
 
 	 G o s u b     C L E A R   B U T T O N S 
 
 	 B u t t o n   1   L a b e l     E M P T Y   1 
 
 	 B u t t o n   1   C o l o r   R o y a l B l u e 
 
 	 B u t t o n   2   L a b e l     E M P T Y   2 
 
 	 B u t t o n   2   C o l o r   R o y a l B l u e 
 
 	 B u t t o n   3   L a b e l     E M P T Y   3 
 
 	 B u t t o n   3   C o l o r   R o y a l B l u e 
 
 	 
 
 	 B u t t o n   1 4   L a b e l     M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   L a b e l     C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l     P O W E R 
 
 	 G o s u b     C L E A R   B U T T O N S 
 
 	 B u t t o n   1   L a b e l     P O W E R   I N 
 
 	 B u t t o n   1   C o l o r   C h o c o l a t e 
 
 	 B u t t o n   2   L a b e l     P O W E R   O U T 
 
 	 B u t t o n   2   C o l o r   C h o c o l a t e 
 
 	 B u t t o n   4   L a b e l     P O W E R   O N 
 
 	 B u t t o n   4   C o l o r   Y e l l o w 6 
 
 	 B u t t o n   5   L a b e l     P O W E R   O F F 
 
 	 B u t t o n   5   C o l o r   Y e l l o w 6 
 
 	 
 
 	 B u t t o n   1 4   L a b e l     M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   L a b e l     C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l     V I R T U A L   K E Y 
 
 	 G o s u b     C L E A R   B U T T O N S 
 
 	 B u t t o n   1   L a b e l     N U M B E R 
 
 	 B u t t o n   1   C o l o r   S l a t e G r a y 
 
 	 B u t t o n   2   L a b e l     A L P H A B E T 
 
 	 B u t t o n   2   C o l o r   S l a t e G r a y 
 
 	 B u t t o n   3   L a b e l      $ % *   & [ @ ) ^ ! 
 
 	 B u t t o n   3   C o l o r   S l a t e G r a y 
 
 	 B u t t o n   5   L a b e l     P S   S E Q U E N C E S 
 
 	 B u t t o n   5   C o l o r   S l a t e G r a y 
 
 	 B u t t o n   6   L a b e l     G e t - S e r v i c e 
 
 	 B u t t o n   6   C o l o r   S l a t e G r a y 
 
 	 B u t t o n   7   L a b e l     W i n 1 0   u p d a t e   h i s t o r y 
 
 	 B u t t o n   7   C o l o r   S l a t e G r a y 
 
 	 B u t t o n   8   L a b e l     G e t S y s t e m I n f o 
 
 	 B u t t o n   8   C o l o r   S l a t e G r a y 
 
 	 
 
 	 B u t t o n   1 4   L a b e l     M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   L a b e l     C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 
 
 L a b e l     M E C H A N I C A L 
 
 	 G o s u b     C L E A R   B U T T O N S 
 
 	 B u t t o n   1   L a b e l     Z E R O 
 
 	 B u t t o n   1   C o l o r   G a i n s b o r o 
 
 	 B u t t o n   2   L a b e l     E N A B . M O T O R S 
 
 	 B u t t o n   2   C o l o r   G a i n s b o r o 
 
 	 B u t t o n   3   L a b e l     D I S A B . M O T O R S 
 
 	 B u t t o n   3   C o l o r   G a i n s b o r o 
 
 	 B u t t o n   4   L a b e l     R O T A T E   V E R T 
 
 	 B u t t o n   4   C o l o r   G a i n s b o r o 
 
 	 B u t t o n   5   L a b e l     R O T A T E   H O R Z 
 
 	 B u t t o n   5   C o l o r   G a i n s b o r o 
 
 	 B u t t o n   6   L a b e l     R O T A T E   M I D L 
 
 	 B u t t o n   6   C o l o r   G a i n s b o r o 
 
 	 B u t t o n   7   L a b e l     B u t t o n   F A S T 
 
 	 B u t t o n   7   C o l o r   G a i n s b o r o 
 
 	 
 
 	 B u t t o n   9   L a b e l     B U R N   I N   7 - 2 4 
 
 	 B u t t o n   9   C o l o r   G a i n s b o r o 
 
 	 
 
 	 B u t t o n   1 4   L a b e l     M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   L a b e l     C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l     M I S C E L L A N E A 
 
 	 G o s u b     C L E A R   B U T T O N S 
 
 	 B u t t o n   1   L a b e l     S T A N D   B Y 
 
 	 B u t t o n   1   C o l o r   D a r k C y a n 
 
 	 B u t t o n   2   L a b e l     S A F E   R E M O V E 
 
 	 B u t t o n   2   C o l o r   D a r k C y a n 
 
 	 B u t t o n   3   L a b e l     A L L   I N 
 
 	 B u t t o n   3   C o l o r   D a r k C y a n 
 
 	 B u t t o n   4   L a b e l     A L L   O U T 
 
 	 B u t t o n   4   C o l o r   D a r k C y a n 
 
 	 B u t t o n   5   L a b e l     V   K E Y B O A R D 
 
 	 B u t t o n   5   C o l o r   D a r k C y a n 
 
 	 B u t t o n   6   L a b e l     J O G   w i t h   M o u s e 
 
 	 B u t t o n   6   C o l o r   D a r k C y a n 
 
 	 B u t t o n   7   L a b e l     C A L I B R A T E 
 
 	 B u t t o n   7   C o l o r   D a r k C y a n 
 
 	 B u t t o n   8   L a b e l     U S B P W R   I N 
 
 	 B u t t o n   8   C o l o r   D a r k C y a n 
 
 	 B u t t o n   9   L a b e l     U S B P W R   O U T 
 
 	 B u t t o n   9   C o l o r   D a r k C y a n 
 
 	 
 
 	 B u t t o n   1 1   L a b e l     G e t S y s t e m I n f o 
 
 	 B u t t o n   1 1   C o l o r   D a r k C y a n 
 
 	 
 
 	 B u t t o n   1 4   L a b e l     M A I N   M E N U 
 
 	 B u t t o n   1 4   C o l o r   Y e l l o w 
 
 	 B u t t o n   1 5   L a b e l     C L O S E   A L L 
 
 	 B u t t o n   1 5   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l     N U M B E R 
 
 	 P r e s s K e y s   A L T   T a b 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 s 1   =     " S P A C E " 
 
 	 P r e s s K e y s   s 1 
 
 	 P r e s s K e y s   1   2   3   4   5   6   7   8   9   0   E n t e r 
 
 R e t u r n 
 
 
 
 L a b e l     A L P H A B E T 
 
 	 P r e s s K e y s   A L T   T a b 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 P r e s s K e y s   A   B   C   D   E   F   G   H   I   J   K   L   M   N   O   P   Q   R   S   T   U   V   W   X   Y   Z   E n t e r 
 
 	 P r e s s K e y s   B   C   C     E n t e r 
 
 R e t u r n 
 
 
 
 L a b e l      $ % *   & [ @ ) ^ ! 
 
 	 ' P r e s s K e y   S p a c e 
 
 	 P r e s s K e y s   W I N D O W S   X 
 
 	 W a i t   S e c o n d s   2 
 
 R e t u r n 
 
 
 
 L a b e l     P S   S E Q U E N C E S 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ D i r . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 L a b e l     G e t - S e r v i c e 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ G e t - S e r v i c e . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 L a b e l     W i n 1 0   u p d a t e   h i s t o r y 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ W i n 1 0 - u p d a t e - h i s t o r y . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 L a b e l     G e t S y s t e m I n f o 
 
 	 C O M   D i s c a r d O u t B u f f e r 
 
 	 C O M   W r i t e S t r i n g   " S e n d S y s t e m I n f o "   +   C R L F 
 
 	 F i l e N a m e   =   " i n f o . c s v " 
 
 	 G o s u b   R e c e i v e F i l e F r o m C O M 
 
 R e t u r n 
 
 
 
 
 
 L a b e l     L U M I N O S I T Y 
 
 	 B u t t o n   1   C o l o r   F l a s h i n g 8   B l a c k   G r a y 5 
 
 	 B e e p 
 
 	 W a i t   K e y ( " S p a c e " ) 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ L u m i n o s i t y B i g P e n . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 	 B u t t o n   1   C o l o r   S k y B l u e 
 
 R e t u r n 
 
 
 
 L a b e l     V   K E Y B O A R D 
 
 	 B e e p 
 
 	 W a i t   K e y ( " S p a c e " ) 
 
 	 B u t t o n   2 9   C o l o r   F l a s h i n g 8   B l u e 9     C y a n 9 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ V i r t u a l K e y b o a r d . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 	 W a i t   S e c o n d s   2 
 
 	 B u t t o n   2 9   C o l o r   M e d i u m B l u e 
 
 R e t u r n 
 
 
 
 L a b e l     R E D 
 
 	 C O M   W r i t e S t r i n g       " R E D "   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l     G R E E N 
 
 	 C O M   W r i t e S t r i n g     " G R E E N "   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l     B L U 
 
 	 C O M   W r i t e S t r i n g   " B L U "   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l     W H I T E 
 
 	 C O M   W r i t e S t r i n g     " W H I T E "   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l     N O   C O L O R 
 
 	 C O M   W r i t e S t r i n g   " N O   C O L O R "   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l     B I T M A P 
 
 	 C O M   W r i t e S t r i n g   " B I T M A P "   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l     P H O T O 
 
 	 C O M   W r i t e S t r i n g   " P H O T O "   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l     V I D E O 
 
 	 C O M   W r i t e S t r i n g   " V I D E O "   +   C R L F 
 
 R e t u r n 
 
 
 
 L a b e l     S T A N D   B Y 
 
 	 G o s u b     Z E R O 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ S a f e R e m o v e . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 	 G o s u b     P O W E R   I N 
 
 	 G o s u b     U S B 3   I N 
 
 	 G o s u b     M E M O R Y   I N 
 
 	 G o s u b     U S B C   O U T 
 
 	 G o s u b     H D M I   O U T 
 
 	 G o s u b     U S B P W R   O U T 
 
 	 G o s u b     H E A R S E T   O U T 
 
 	 G o s u b     O N O F F   O U T 
 
 	 G o s u b     V O L U M E   O U T 
 
 	 G o s u b     D I S A B . M O T O R S 
 
 R e t u r n 
 
 
 
 L a b e l     A L L   I N 
 
 	 G o s u b     P O W E R   I N 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     U S B 3   I N 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     U S B C   I N 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     H D M I   I N 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     U S B P W R   I N 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     H E A R S E T   I N 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     M E M O R Y   I N 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 ' G o s u b     O N O F F   I N 
 
 	 ' G o s u b     V O L U M E   I N _ U P 
 
 	 ' W a i t   S e c o n d s   0 . 5 
 
 	 G o s u b     V O L U M E   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 R e t u r n 
 
 
 
 L a b e l     A L L   O U T 
 
 	 G o s u b     P O W E R   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     U S B 3   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     U S B C   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     H D M I   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     U S B P W R   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     H E A R S E T   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     M E M O R Y   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 G o s u b     O N O F F   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 ' G o s u b     V O L U M E   I N _ D W 
 
 	 ' W a i t   S e c o n d s   0 . 5 
 
 	 G o s u b     V O L U M E   O U T 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 R e t u r n 
 
 
 
 L a b e l   M U L T I 
 
 	 v 2   =   I n p u t   "   H o w   m a n y   l o o p s ?   " 
 
 	 I f   v 2   =   0 
 
 	 	 v 2   =   1 0 
 
 	 E n d I f 
 
 	 F o r   v 1   =   1   T o   v 2 
 
 	 	 s 1   =   N o w 
 
 	 	 s 1   =   s 1   +   "           C y c l e   i n   p r o g r e s s   =   "   +   v 1 
 
 	 	 s 1   =   s 1   +   "           C y c l e   t o   d o   =   "   +   v 2 
 
 	 	 P r i n t   s 1 
 
 	 	 ' G o s u b   R U N   T E S T 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 L a b e l     S A F E   R E M O V E 
 
 	 G o s u b     Z E R O 
 
 	 G o s u b     P O W E R   O U T 
 
 	 G o s u b     U S B 3   O U T 
 
 	 G o s u b     U S B C   O U T 
 
 	 G o s u b     H D M I   O U T 
 
 	 G o s u b     U S B P W R   O U T 
 
 	 G o s u b     H E A R S E T   O U T 
 
 	 G o s u b     O N O F F   O U T 
 
 	 G o s u b     V O L U M E   O U T 
 
 	 G o s u b     M E M O R Y   O U T 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ S a f e R e m o v e . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 L a b e l     B U T T O N   F A S T 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ B u t t o n F a s t . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 L a b e l     B U R N   I N   7 - 2 4 
 
 	 F o r   v 9   =   1   T o   1 0 0 0 0 
 
 	 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ B u r n I n 7 - 2 4 . s e q " 
 
 	 	 G o s u b   E x e c S e q u e n c e 
 
 	 	 P r i n t   " C y c l e   n u m b e r : "   +   v 9 
 
 ' 	 	 W a i t   S e c o n d s   1 . 5 
 
 	 	 S l o t ( 1 0 0 )   =   S l o t ( 1 0 0 )   +   1 
 
 	 	 B e e p 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 L a b e l     C A L I B R A T E 
 
 	 ' B e e p 
 
 	 ' W a i t   K e y ( " S p a c e " ) 
 
 	 G o s u b     Z E R O 
 
 	 ' S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ C a l i b r a t e . s e q " 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ S p e e d T e s t . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '       A U D I O   T E S T S 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   S l o t _ R u n S c o p e 
 
 V a r i a b l e   N u m e r i c   S l o t _ S o u n d L e v e l 
 
 V a r i a b l e   N u m e r i c   S l o t _ S o u n d L e v e l 2 n d H a r m 
 
 V a r i a b l e   N u m e r i c   S l o t _ S o u n d L e v e l 3 r d H a r m 
 
 V a r i a b l e   N u m e r i c   S o u n d L e v e l M i n 
 
 V a r i a b l e   N u m e r i c   S o u n d N o i s e M a x 
 
 V a r i a b l e   N u m e r i c   S o u n d D i s t 2 n d H a r m M a x   '   M a x   l e v e l   f o r   t h e   2 n d   h a r m o n i c s 
 
 V a r i a b l e   N u m e r i c   S o u n d D i s t 3 r d H a r m M a x   '   M a x   l e v e l   f o r   t h e   3 r d   h a r m o n i c s 
 
 
 
 L a b e l   S P E A K . D I S T . 
 
 	 W i n d o w   M i n S i z e 
 
 	 W a i t   K e y ( " S p a c e " ) 
 
 	 B u t t o n   2 5   C o l o r   F l a s h i n g 8   G o l d   D a r k G r e e n 
 
 	 S o u n d L e v e l M i n   =   6 5 0 
 
 	 S o u n d N o i s e M a x   =   3 5 0 
 
 	 S o u n d D i s t 2 n d H a r m M a x   =   4 0 0 
 
 	 S o u n d D i s t 3 r d H a r m M a x   =   4 0 0 
 
 	 G o s u b   A u d i o T e s t 
 
 	 W i n d o w   S i z a b l e 
 
 	 B u t t o n   2 5   C o l o r   L i g h t S t e e l B l u e 
 
 	 ' G o s u b   E v e n t S t o p 
 
 R e t u r n 
 
 
 
 L a b e l     T e s t H e a r s e t 
 
 	 W i n d o w   M i n S i z e 
 
 	 B u t t o n   2 6   C o l o r   F l a s h i n g 8   G o l d   D a r k G r e e n 
 
 	 S o u n d L e v e l M i n   =   5 0 
 
 	 S o u n d N o i s e M a x   =   3 0 
 
 	 G o s u b   A u d i o T e s t 
 
 	 W i n d o w   S i z a b l e 
 
 	 B u t t o n   2 6   C o l o r   L i g h t S t e e l B l u e 
 
 	 G o s u b   E v e n t S t o p 
 
 R e t u r n 
 
 
 
 L a b e l   A u d i o T e s t 
 
 	 ' G o s u b   " Z E R O " 
 
 	 S l o t   3 9   =   1 0 0 0                             ' < < < < < < < < < < < < < <   m a n u a l   s o u n d   s t a r t 
 
         ' B e e p 
 
 	 ' w a i t   S e c o n d s   2 
 
 	 ' W a i t   K e y ( " S p a c e " ) 
 
 	 s 1   =   " " 
 
 	 ' - - - - - - - - - - - - - - - - - - - - - -   t e s t   a u d i o   l e f t 
 
 	 D e s t X   =   0 1 4 
 
 	 D e s t Y   =   1 0 8 . 8 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 G o s u b     P E N   S I N G L E 
 
 	 W a i t   S e c o n d s   0 . 8 
 
 	 S l o t   S l o t _ R u n S c o p e   =   1 0 0 0 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l ) 
 
 	 I f   v 1   <   S o u n d L e v e l M i n 
 
 	 	 s 1   =   s 1   +   " E R R O R :   L e f t   l e v e l   t o o   l o w "   +   C R L F 
 
 	 E n d I f 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l 2 n d H a r m ) 
 
 	 I f   v 1   >   S o u n d D i s t 2 n d H a r m M a x 
 
 	 	 s 1   =   s 1   +   " E R R O R :   L e f t   s p e a k e r .   T o o   m u c h   d i s t o r t i o n   o n   t h e   2 n d   h a r m o n i c s "   +   C R L F 
 
 	 E n d I f 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l 3 r d H a r m ) 
 
 	 I f   v 1   >   S o u n d D i s t 3 r d H a r m M a x 
 
 	 	 s 1   =   s 1   +   " E R R O R :   L e f t   s p e a k e r .   T o o   m u c h   d i s t o r t i o n   o n   t h e   3 r d   h a r m o n i c s "   +   C R L F 
 
 	 E n d I f 
 
 	 S l o t   S l o t _ R u n S c o p e   =   0 
 
 	 
 
 	 ' - - - - - - - - - - - - - - - - - - - - - -   t e s t   a u d i o   r i g h t 
 
 	 D e s t X   =   0 1 4 
 
 	 D e s t Y   =   1 0 2 . 5 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 G o s u b     P E N   S I N G L E 
 
 	 W a i t   S e c o n d s   0 . 8 
 
 	 S l o t   S l o t _ R u n S c o p e   =   1 0 0 0 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l ) 
 
 	 I f   v 1   <   S o u n d L e v e l M i n 
 
 	 	 s 1   =   s 1   +   " E R R O R :   R i g h t   l e v e l   t o o   l o w "   +   C R L F 
 
 	 E n d I f 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l 2 n d H a r m ) 
 
 	 I f   v 1   >   S o u n d D i s t 2 n d H a r m M a x 
 
 	 	 s 1   =   s 1   +   " E R R O R :   R i g h t   s p e a k e r .   T o o   m u c h   d i s t o r t i o n   o n   t h e   2 n d   h a r m o n i c s "   +   C R L F 
 
 	 E n d I f 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l 3 r d H a r m ) 
 
 	 I f   v 1   >   S o u n d D i s t 3 r d H a r m M a x 
 
 	 	 s 1   =   s 1   +   " E R R O R :   R i g h t   s p e a k e r .   T o o   m u c h   d i s t o r t i o n   o n   t h e   3 r d   h a r m o n i c s "   +   C R L F 
 
 	 E n d I f 
 
 	 S l o t   S l o t _ R u n S c o p e   =   0 
 
 	 
 
 	 S l o t   3 9   =   0                                   ' < < < < < < < < < < < < < <   m a n u a l   s o u n d   s t o p 
 
 	 
 
 	 ' - - - - - - - - - - - - - - - - - - - - - -   t e s t   a u d i o   n o   s o u n d   l e f t / r i g h t 
 
 	 D e s t X   =   0 1 4 
 
 	 D e s t Y   =   0 9 6 . 2 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 G o s u b     P E N   S I N G L E 
 
 	 W a i t   S e c o n d s   0 . 8 
 
 	 S l o t   S l o t _ R u n S c o p e   =   1 0 0 0 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l ) 
 
 	 I f   v 1   >   S o u n d N o i s e M a x 
 
 	 	 s 1   =   s 1   +   " E R R O R :   T o o   m u c h   n o i s e "   +   C R L F 
 
 	 E n d I f 
 
 	 S l o t   S l o t _ R u n S c o p e   =   0 
 
 	 
 
 	 I f   s 1   =   " " 
 
 	 	 s 1   =   " T E S T   P A S S E D   O K " 
 
 	 E n d I f 
 
 	 P r i n t   s 1 
 
 R e t u r n 
 
 
 
 L a b e l     V O L U M E   T E S T 
 
 	 ' G o s u b   " Z E R O " 
 
 	 W i n d o w   M i n S i z e 
 
 	 B u t t o n   2 4   C o l o r   F l a s h i n g 8   L i g h t S t e e l B l u e   D a r k G r e e n 
 
 	 S o u n d L e v e l M i n   =   6 5 0 
 
 	 S o u n d N o i s e M a x   =   3 5 0 
 
 	 G o s u b   V o l u m e T e s t 
 
 	 W i n d o w   S i z a b l e 
 
 	 B u t t o n   2 4   C o l o r   L i g h t S t e e l B l u e 
 
 	 ' S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ S a f e R e m o v e . s e q " 
 
 	 ' G o s u b   E x e c S e q u e n c e 
 
 	 G o s u b     S T A N D   B Y 
 
 	 G o s u b   E v e n t S t o p 
 
 R e t u r n 
 
 
 
 L a b e l   V o l u m e T e s t 
 
 	 ' B e e p 
 
 	 ' w a i t   S e c o n d s   2 
 
 	 ' W a i t   K e y ( " S p a c e " ) 
 
 	 s 1   =   " " 
 
 	 ' - - - - - - - - - - - - - - - - - - - - - -   t e s t   a u d i o   v o l u m e   l e v e l   h i g h 
 
 	 G o s u b     V O L U M E   U P 
 
 	 W a i t   S e c o n d s   4 
 
 	 G o s u b     V O L U M E   O U T 
 
 	 S l o t   3 9   =   1 0 0 0                             ' < < < < < < < < < < < < < <   m a n u a l   s o u n d   s t a r t 
 
 	 W a i t   S e c o n d s   0 . 8 
 
 	 S l o t   S l o t _ R u n S c o p e   =   1 0 0 0 
 
 	 W a i t   S e c o n d s   0 . 2 3 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l ) 
 
 	 I f   v 1   <   S o u n d L e v e l M i n 
 
 	 	 s 1   =   s 1   +   " E R R O R :   L e f t   l e v e l   t o o   l o w "   +   C R L F 
 
 	 E n d I f 
 
 	 S l o t   S l o t _ R u n S c o p e   =   0 
 
 	 ' S l o t   3 9   =   0                                   ' < < < < < < < < < < < < < <   m a n u a l   s o u n d   s t o p 
 
 	 
 
 	 ' - - - - - - - - - - - - - - - - - - - - - -   t e s t   a u d i o   n o   s o u n d   l e f t / r i g h t 
 
 	 G o s u b     V O L U M E   D W 
 
 	 W a i t   S e c o n d s   4 
 
 	 G o s u b     V O L U M E   O U T 
 
 	 ' S l o t   3 9   =   1 0 0 0                             ' < < < < < < < < < < < < < <   m a n u a l   s o u n d   s t a r t 
 
 	 W a i t   S e c o n d s   0 . 8 
 
 	 S l o t   S l o t _ R u n S c o p e   =   1 0 0 0 
 
 	 W a i t   S e c o n d s   0 . 2 3 
 
 	 v 1   =   S l o t ( S l o t _ S o u n d L e v e l ) 
 
 	 I f   v 1   >   S o u n d N o i s e M a x 
 
 	 	 s 1   =   s 1   +   " E R R O R :   T o o   m u c h   n o i s e "   +   C R L F 
 
 	 E n d I f 
 
 	 S l o t   S l o t _ R u n S c o p e   =   0 
 
 	 S l o t   3 9   =   0                                   ' < < < < < < < < < < < < < <   m a n u a l   s o u n d   s t o p 
 
 	 I f   s 1   =   " " 
 
 	 	 s 1   =   " T E S T   P A S S E D   O K " 
 
 	 E n d I f 
 
 	 P r i n t   s 1 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     C O L O R   R E C O G N I T I O N 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   S l o t _ S 0 
 
 V a r i a b l e   N u m e r i c   S l o t _ S 1 
 
 V a r i a b l e   N u m e r i c   S l o t _ S 2 
 
 V a r i a b l e   N u m e r i c   S l o t _ S 3 
 
 V a r i a b l e   N u m e r i c   S l o t _ F r e q 
 
 
 
 L a b e l     C O L O R   T E S T 
 
 	 F i l e H e a d e r T e s t N a m e   =   " C O L O R   T E S T " 
 
 	 G o s u b   W r i t e F i l e H e a d e r 
 
 	 B e e p 
 
 	 W a i t   K e y ( " S p a c e " ) 
 
 	 B u t t o n   1 0   C o l o r   F l a s h i n g 8   R e d   S k y B l u e 
 
 	 
 
 	 G o s u b   R E D 
 
 	 W a i t   S e c o n d s   1 
 
 	 G o s u b     C O L O R   R E C O G N I T I O N 
 
 	 I f   s 1   =   " R E D " 
 
 	 	 s 1   =   " R e d   c o l o r   =   P a s s e d " 
 
 	 E l s e 
 
 	 	 s 1   =   " R e d   c o l o r   =   F a i l " 
 
 	 E n d I f 
 
 	 S a v e   S t r i n g T o F i l e   s 1   F i l e N a m e 
 
 	 
 
 	 G o s u b   G R E E N 
 
 	 W a i t   S e c o n d s   1 
 
 	 G o s u b     C O L O R   R E C O G N I T I O N 
 
 	 I f   s 1   =   " G R E E N " 
 
 	 	 s 1   =   " G r e e n   c o l o r   =   P a s s e d " 
 
 	 E l s e 
 
 	 	 s 1   =   " G r e e n   c o l o r   =   F a i l " 
 
 	 E n d I f 
 
 	 S a v e   S t r i n g T o F i l e   s 1   F i l e N a m e 
 
 	 
 
 	 G o s u b   B L U 
 
 	 W a i t   S e c o n d s   1 
 
 	 G o s u b     C O L O R   R E C O G N I T I O N 
 
 	 I f   s 1   =   " B L U " 
 
 	 	 s 1   =   " B l u   c o l o r   =   P a s s e d " 
 
 	 E l s e 
 
 	 	 s 1   =   " B l u   c o l o r   =   F a i l " 
 
 	 E n d I f 
 
 	 S a v e   S t r i n g T o F i l e   s 1   F i l e N a m e 
 
 	 
 
 	 B u t t o n   1 0   C o l o r   S k y B l u e 
 
 	 
 
 	 G o s u b     N O   C O L O R 
 
 R e t u r n 
 
 
 
 L a b e l     C O L O R   R E C O G N I T I O N 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - -   R E D   f i l t e r 
 
 	 S l o t   S l o t _ S 2   =   0 
 
 	 S l o t   S l o t _ S 3   =   0 
 
 	 W a i t   S e c o n d s   0 . 1 
 
 	 v 1   =   S l o t ( S l o t _ F r e q ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - -   G R E E N   f i l t e r 
 
 	 S l o t   S l o t _ S 2   =   1 0 0 0 
 
 	 S l o t   S l o t _ S 3   =   1 0 0 0 
 
 	 W a i t   S e c o n d s   0 . 1 
 
 	 v 2   =   S l o t ( S l o t _ F r e q ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - -   B L U   f i l t e r 
 
 	 S l o t   S l o t _ S 2   =   0 
 
 	 S l o t   S l o t _ S 3   =   1 0 0 0 
 
 	 W a i t   S e c o n d s   0 . 1 
 
 	 v 3   =   S l o t ( S l o t _ F r e q ) 
 
 	 ' '   - - - - - - - - - - - - - - - - - - - - - - - - -   C L E A R   f i l t e r 
 
 	 ' S l o t   S l o t _ S 2   =   1 0 0 0 
 
 	 ' S l o t   S l o t _ S 3   =   0 
 
 	 ' W a i t   S e c o n d s   0 . 2 
 
 	 ' v 4   =   S l o t ( S l o t _ F r e q ) 
 
         '   - - - - - - - - - - - - - - - - - - - - - - - - -   R E C O G N I Z E   C O L O R 
 
 	 I f   v 1   >   v 2   A n d   v 1   >   v 3 
 
 	 	 s 1   =   " R E D " 
 
 	 E l s e 
 
 	 	 I f   v 2   >   v 1   A n d   v 2   >   v 3 
 
 	 	 	 s 1   =   " G R E E N " 
 
 	 	 E l s e 
 
 	 	 	 I f   v 3   >   v 1   A n d   v 3   >   v 2 
 
 	 	 	 	 s 1   =   " B L U " 
 
 	 	 	 E n d I f 
 
 	 	 E n d I f 
 
 	 E n d I f 
 
 	 P r i n t   v 1   +   "   "   +   v 2   +   "   "   +   v 3   +   "   "   +   s 1 
 
 R e t u r n 
 
 
 
 L a b e l     T O U C H   T E S T 
 
 	 W i n d o w   M i n S i z e 
 
 	 B e e p 
 
 	 W a i t   K e y ( " S p a c e " ) 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ T o u c h T e s t . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 L a b e l     S t a r t   W X M   A p p T a b l e t 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S t a r t W X M _ A p p T a b l e t . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 L a b e l     S l i d e   P S W 
 
 	 S e q u e n c e F i l e N a m e   =   " S E Q U E N C E S \ S e q u e n c e _ S l i d e P s w . s e q " 
 
 	 G o s u b   E x e c S e q u e n c e 
 
 R e t u r n 
 
 
 
 V a r i a b l e   S t r i n g   F i l e H e a d e r T e s t N a m e 
 
 L a b e l   W r i t e F i l e H e a d e r 
 
 	 s 1   =   " - - - - - - - - - - - - - - - - - - - - - - - - - "   +   C R L F 
 
 	 s 1   =   s 1   +   F i l e H e a d e r T e s t N a m e   +   C R L F 
 
 	 s 1   =   s 1   +   F o r m a t ( N o w ,   " d d / M M M / y y y y   H H : m m : s s " )   +   C R L F 
 
 	 s 1   =   s 1   +   " - - - - - - - - - - - - - - - - - - - - - - - - - " 
 
 	 S a v e   S t r i n g T o F i l e   s 1   F i l e N a m e 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S E Q U E N C E   L O A D I N G   A N D   E X E C U T I O N 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   S t r i n g   S e q u e n c e F i l e N a m e 
 
 V a r i a b l e   S t r i n g   S e q u e n c e 
 
 V a r i a b l e   S t r i n g   S e q u e n c e C m d 
 
 V a r i a b l e   N u m e r i c   S e q u e n c e I n d e x 
 
 V a r i a b l e   N u m e r i c   S e q u e n c e L e n g t h 
 
 
 
 L a b e l   E x e c S e q u e n c e 
 
 	 L o a d   S e q u e n c e   S e q u e n c e F i l e N a m e 
 
 	 I f   L e n ( S e q u e n c e )   =   0 
 
 	 	 C o n t r o l s   O p e n T e x t B o x 
 
 	 	 P r i n t   C R L F   +   "   S e q u e n c e   f i l e   n o t   f o u n d :   "   +   S e q u e n c e F i l e N a m e 
 
 	 	 B e e p 
 
 	 	 S t o p 
 
 	 E n d I f 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 	 V a r i a b l e   N u m e r i c   E x e c S e q u e n c e S t a r t T i m e 
 
 	 E x e c S e q u e n c e S t a r t T i m e   =   E l a p s e d T i m e 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 	 S e q u e n c e L e n g t h   =   G e t S e p a r a t e d S t r i n g C o u n t ( S e q u e n c e ,   C R L F ) 
 
 	 F o r   S e q u e n c e I n d e x   =   0   T o   S e q u e n c e L e n g t h - 1 
 
 	 	 S e q u e n c e C m d   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e ,   S e q u e n c e I n d e x ,   C R L F ) 
 
 	 	 S e q u e n c e C m d   =   R e p l a c e ( S e q u e n c e C m d ,   C h r ( 9 ) ,   "   " )   ' T A B S   t o   S P A C E S 
 
 	 	 S e q u e n c e C m d   =   R e m o v e C o m m e n t s ( S e q u e n c e C m d ) 
 
 	 	 S e q u e n c e C m d   =   T r i m ( S e q u e n c e C m d ) 
 
 	 	 ' 
 
 	 	 P r i n t   "   E x e c u t i n g   c o m m a n d :   "   +   S e q u e n c e C m d 
 
 	 	 ' 
 
 	 	 S e l e c t   U C a s e ( S e q u e n c e C m d ) 
 
                         '   - - - - - - - - - - - - - - - - - - -   e x i t   f r o m   t h e   s e q u e n c e   - - - - - - - - - - - - - 
 
 	 	 	 C a s e   " E N D S E Q " 
 
 	 	 	 	 S e q u e n c e I n d e x   =   S e q u e n c e L e n g t h - 1 
 
 	 	 	 '   - - - - - - - - - - - - - - - - - - -   s p e c i a l   m u l t i p l e   a c t i o n s   - - - - - - - - - - - 
 
 	 	 	 C a s e   " S L I D E " 	 	           '   s l i d e   b e f o r e   i n s e r t   P S W 
 
 	 	 	 	 G o s u b     S L I D E 
 
 	 	 	 C a s e   " Z E R O "                             '   m o v e   p e n   t o   X = 0   a n d   Y = 0   p o s i t i o n 
 
 	 	 	 	 G o s u b     Z E R O 
 
 	 	 	 C a s e   " A L L   O U T "                       '   a l l   p l u g   o u t 
 
 	 	 	 	 G o s u b     A L L   O U T 
 
 	 	 	 C a s e   " A L L   I N "                         '   a l l   p l u g   i n 
 
 	 	 	 	 G o s u b     A L L   I N 
 
 	 	       '   - - - - - - - - - - - - - - - - - - - - -   s i n g l e   a c t i o n   - - - - - - - - - - - - - - - - - - - - - - 
 
 	 	 	 C a s e   " P O W E R   I N "                     '   p o w e r   p l u g   i n 
 
 	 	 	 	 G o s u b     P O W E R   I N 
 
 	 	 	 C a s e   " P O W E R   O U T "                   '   p o w e r   p l u g   o u t 
 
 	 	 	 	 G o s u b     P O W E R   O U T 
 
 	 	 	 C a s e   " E N A B L E   M O T O R S "           ' e n a b l e   m o v e m e n t   m o t o r s 
 
 	 	 	 	 G o s u b     E N A B . M O T O R S 
 
 	 	 	 C a s e   " D I S A B L E   M O T O R S "         '   d i s a b l e   m o v e m e n t   m o t o r s 
 
 	 	 	 	 G o s u b     D I S A B . M O T O R S 
 
 	 	 	 C a s e   " P E N   U P "                         '   m o v e   p e n   u p 
 
 	 	 	 	 G o s u b     P E N   U P 
 
 	 	 	 C a s e   " P E N   D O W N "                     '   m o v e   p e n   d o w n 
 
 	 	 	 	 G o s u b     P E N   D O W N 
 
 	 	 	 C a s e   " P E N   S I N G L E "                 '   s i n g l e   c l i c k 
 
 	 	 	 	 G o s u b     P E N   S I N G L E 
 
 	 	 	 C a s e   " P E N   D O U B L E "                 '   d o u b l e   c l i c k 
 
 	 	 	 	 G o s u b     P E N   D O U B L E 
 
 	 	 	 C a s e   " P O W E R   C Y C L E "               '   p u s h   p o w e r   b u t t o n ,   w a i t   t h e n   r e l e a s e 
 
 	 	 	 	 ' G o s u b     P O W E R   C Y C L E 
 
 	 	 	 C a s e   " R O T A T E   H O R Z "               '   r o t a t e   t h e   t a b l e t   h o r i z o n t a l l y 
 
 	 	 	 	 G o s u b     R O T A T E   H O R Z 
 
 	 	 	 C a s e   " R O T A T E   M I D L "               '   r o t a t e   t h e   t a b l e t   6 0   d e g r e e 
 
 	 	 	 	 G o s u b     R O T A T E   M I D L 
 
 	 	 	 C a s e   " R O T A T E   V E R T "               '   r o t a t e   t h e   t a b l e t   v e r t i c a l l y 
 
 	 	 	 	 G o s u b     R O T A T E   V E R T 
 
 	 	 	 C a s e   " H D M I   I N " 
 
 	 	 	 	 G o s u b     H D M I   I N 
 
 	 	 	 C a s e   " H D M I   O U T " 
 
 	 	 	 	 G o s u b     H D M I   O U T 
 
 	 	 	 C a s e   " U S B 3   I N " 
 
 	 	 	 	 G o s u b     U S B 3   I N 
 
 	 	 	 C a s e   " U S B 3   O U T " 
 
 	 	 	 	 G o s u b     U S B 3   O U T 
 
 	 	 	 C a s e   " U S B C   I N " 
 
 	 	 	 	 G o s u b     U S B C   I N 
 
 	 	 	 C a s e   " U S B C   O U T " 
 
 	 	 	 	 G o s u b     U S B C   O U T 
 
 	 	 	 C a s e   " U S B P W R   I N " 
 
 	 	 	 	 G o s u b     U S B P W R   I N 
 
 	 	 	 C a s e   " U S B P W R   O U T " 
 
 	 	 	 	 G o s u b     U S B P W R   O U T 
 
 	 	 	 C a s e   " M E M O R Y   I N " 
 
 	 	 	 	 G o s u b     M E M O R Y   I N 
 
 	 	 	 C a s e   " M E M O R Y   O U T " 
 
 	 	 	 	 G o s u b     M E M O R Y   O U T 
 
 	 	 	 C a s e   " H E A R S E T   I N " 
 
 	 	 	 	 G o s u b     H E A R S E T   I N 
 
 	 	 	 C a s e   " H E A R S E T   O U T " 
 
 	 	 	 	 G o s u b     H E A R S E T   O U T 
 
 	 	 	 C a s e   " C L O S E   A L L " 
 
 	 	 	 	 G o s u b     C L O S E   A L L 
 
 	 	 	 '   - - - - - - - - - - - - - - - - - - -   d i s p l a y   a c t i o n s   - - - - - - - - - - - - - - - - - - - - - 
 
 	 	 	 C a s e   " B I T M A P " 
 
 	 	 	 	 G o s u b     B I T M A P 
 
 	 	 	 C a s e   " P H O T O " 
 
 	 	 	 	 G o s u b     P H O T O 
 
 	 	 	 C a s e   " V I D E O " 
 
 	 	 	 	 G o s u b     V I D E O 
 
 	 	 	 C a s e   " R E D " 
 
 	 	 	 	 G o s u b     R E D 
 
 	 	 	 C a s e   " G R E E N " 
 
 	 	 	 	 G o s u b     G R E E N 
 
 	 	 	 C a s e   " B L U " 
 
 	 	 	 	 G o s u b     B L U 
 
 	 	 	 C a s e   " N O   C O L O R " 
 
 	 	 	 	 G o s u b     N O   C O L O R 
 
 	 	 	 '   - - - - - - - - - - - - - - - - - - - - -   W A I T   M O T O R S   - - - - - - - - - - - - - - - - - - - - - - - 
 
 	 	 	 C a s e   " W A I T   M O T O R S " 
 
 	 	 	 	 G o s u b   W a i t M o t o r s 
 
 	 	 	 '   - - - - - - - - - - - - - - - - - - - - -   G E T   S Y S T E M   I N F O   - - - - - - - - - - - - - - - - - - - 
 
 	 	 	 C a s e   " G e t S y s t e m I n f o " 
 
 	 	 	 	 G o s u b     G e t S y s t e m I n f o 
 
 	 	 	 '   - - - - - - - - - - - - - - - - - - - - -   I s t r u c t i o n   w i t h   p a r a m e t e r s   - - - - - - - - 
 
 	 	 	 C a s e E l s e 
 
 	 	 	 	 s 1   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   0 ) 
 
 	 	 	 	 S e l e c t   U C a s e ( s 1 ) 
 
 	 	 	 	 	 C a s e   " M O V E " 
 
 	 	 	 	 	 	 D e s t X   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   1 ) 
 
 	 	 	 	 	 	 D e s t Y   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   2 ) 
 
 	 	 	 	 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 	 	 	 	 C a s e   " M O V E S L O W " 
 
 	 	 	 	 	 	 M o v e S l o w X Y _ D e s t X   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   1 ) 
 
 	 	 	 	 	 	 M o v e S l o w X Y _ D e s t Y   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   2 ) 
 
 	 	 	 	 	 	 M o v e S l o w X Y _ S p e e d   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   3 ) 
 
 	 	 	 	 	 	 G o s u b   M o v e S l o w X Y 
 
 	 	 	 	 	 C a s e   " D R A W C I R C L E " 
 
 	 	 	 	 	 	 D r a w C i r c l e _ X   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   1 ) 
 
 	 	 	 	 	 	 D r a w C i r c l e _ Y   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   2 ) 
 
 	 	 	 	 	 	 D r a w C i r c l e _ R a d i u s   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   3 ) 
 
 	 	 	 	 	 	 D r a w C i r c l e _ S p e e d   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   4 ) 
 
 	 	 	 	 	 	 G o s u b   D r a w C i r c l e 
 
 	 	 	 	 	 C a s e   " P A U S E " 
 
 	 	 	 	 	 	 W a i t   S e c o n d s   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   1 ) 
 
 	 	 	 	 	 C a s e   " P R E S S K E Y S " 
 
 	 	 	 	 	 	 S e q u e n c e C m d   =   M i d ( S e q u e n c e C m d ,   1 1 ) 
 
 	 	 	 	 	 	 P r e s s K e y s   S e q u e n c e C m d 
 
 	 	 	 	 	 C a s e   " S E N D K E Y S " 
 
 	 	 	 	 	 	 S e q u e n c e C m d   =   M i d ( S e q u e n c e C m d ,   1 0 ) 
 
 	 	 	 	 	 	 S e n d K e y s   S e q u e n c e C m d 
 
 	 	 	 	 	 C a s e   " P E N T Y P I N G " 
 
 	 	 	 	 	 	 P E N _ T O U C H _ T I M E   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   1 ) 
 
 	 	 	 	 	 	 G o s u b     P E N   T Y P I N G 
 
 	 	 	 	 	 C a s e E l s e 
 
 	 	 	 	 	 	 I f   s 1   < >   " " 
 
 	 	 	 	 	 	 	 C o n t r o l s   O p e n T e x t B o x 
 
 	 	 	 	 	 	 	 P r i n t   C R L F   +   "   U n r e c o g n i z e d   c o m m a n d :   "   +   S e q u e n c e C m d 
 
 	 	 	 	 	 	 	 B e e p 
 
 	 	 	 	 	 	 	 S t o p 
 
 	 	 	 	 	 	 E n d I f 
 
 	 	 	 	 E n d S e l e c t 
 
 	 	 E n d S e l e c t 
 
 	 N e x t 
 
 	 S e q u e n c e F i l e N a m e   =   R e p l a c e ( S e q u e n c e F i l e N a m e , " . s e q " , " " ) 
 
 	 P r i n t   S e q u e n c e F i l e N a m e   +   "   e x e c u t e d   i n   "   +   F o r m a t ( E l a p s e d T i m e   -   E x e c S e q u e n c e S t a r t T i m e ,   " 0 . 0 0 " )   +   "   s e c o n d s " 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     C O R E   X Y 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   D e s t X 	 	 	 	 '   d e s t i n a t i o n   i n   m m   c o o r d s 
 
 V a r i a b l e   N u m e r i c   D e s t Y 	 	 	 	 '   d e s t i n a t i o n   i n   m m   c o o r d s 
 
 
 
 V a r i a b l e   N u m e r i c   S l o t _ M o t o r A 
 
 V a r i a b l e   N u m e r i c   S l o t _ M o t o r B 
 
 V a r i a b l e   N u m e r i c   S l o t _ E n a b l e M o t o r s 
 
 V a r i a b l e   N u m e r i c   S l o t _ S e n s o r X 
 
 V a r i a b l e   N u m e r i c   S l o t _ S e n s o r Y 
 
 
 
 L a b e l   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t       '   m o v e   t o   d e s t X   &   d e s t Y   a n d   w a i t   s t o p   m o t o r s 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 G o s u b   W a i t M o t o r s 
 
 R e t u r n 
 
 
 
 L a b e l   C o r e X Y _ M o v e T o D e s t X Y 	 	 	 '   m o v e   t o   d e s t X   &   d e s t Y   ( w i t h   l i m i t s ) 
 
 	 D e s t X   =   L i m i t ( D e s t X ,   D e s t x M i n ,   D e s t x M a x ) 
 
 	 D e s t Y   =   L i m i t ( D e s t Y ,   q q q ,   D e s t y M a x ) 
 
 	 G o s u b   C o r e X Y _ P r e p a r e C o r e A B 
 
 	 S l o t ( S l o t _ M o t o r A )   =   C o r e A 
 
 	 S l o t ( S l o t _ M o t o r B )   =   C o r e B 
 
 R e t u r n 
 
 
 
 L a b e l   C o r e X Y _ M o v e T o D e s t X Y _ N o L i m i t s 	 '   m o v e   t o   d e s t X   &   d e s t Y   ( w i t h o u t   u s i n g   l i m i t s ) 
 
 	 G o s u b   C o r e X Y _ P r e p a r e C o r e A B 
 
 	 S l o t ( S l o t _ M o t o r A )   =   C o r e A 
 
 	 S l o t ( S l o t _ M o t o r B )   =   C o r e B 
 
 R e t u r n 
 
 
 
 L a b e l   C o r e X Y _ S e t N e w Z e r o 
 
         '   - - - - - - - - - - - - - - - - - - - - - - - - -   R e s e t   a x i s   X   a n d   Y 
 
 	 S l o t ( S l o t _ M o t o r A )   =   R e s e t 
 
 	 S l o t ( S l o t _ M o t o r B )   =   R e s e t 
 
 	 W a i t   S e c o n d s   0 . 1 5 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - -   S e t   r e s e t   v a l u e s   w i t h   C o r e X Y   c o r r e c t i o n 
 
 	 D e s t X   =   0 
 
 	 D e s t Y   =   0 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ N o L i m i t s 
 
 	 G o s u b   W a i t M o t o r s 
 
 R e t u r n 
 
 
 
 V a r i a b l e   N u m e r i c   C o r e A 
 
 V a r i a b l e   N u m e r i c   C o r e B 
 
 
 
 L a b e l   C o r e X Y _ P r e p a r e C o r e A B 
 
 	 C o r e A   =   ( D e s t X   -   D e s t Y )   /   2 
 
 	 C o r e B   =   ( D e s t X   +   D e s t Y )   /   2 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     H O M E 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   H o m e A x i s 
 
 V a r i a b l e   N u m e r i c   S l o t S e n s o r 
 
 V a r i a b l e   N u m e r i c   D e t a c h M M 
 
 V a r i a b l e   N u m e r i c   S p e e d S e a r c h 
 
 V a r i a b l e   N u m e r i c   S p e e d R e t u r n 
 
 V a r i a b l e   N u m e r i c   I n i t i a l P o s i t i o n 
 
 
 
 L a b e l   Z E R O 
 
 	 G o s u b   C o r e X Y _ S e t N e w Z e r o 
 
 	 G o s u b     E N A B . M O T O R S 
 
 	 G o s u b     P E N   U P 
 
 	 G o s u b   H o m e X 
 
 	 G o s u b   H o m e Y 
 
 	 G o s u b   C o r e X Y _ S e t N e w Z e r o 
 
 	 P r i n t   F o r m a t ( D e s t X ,   " 0 . 0 0 0 " )   +   "   "   +   F o r m a t ( D e s t Y ,   " 0 . 0 0 0 " ) 
 
 	 ' G o s u b   " D I S A B . M O T O R S " 
 
 R e t u r n 
 
 
 
 L a b e l   H o m e X 
 
 	 H o m e A x i s   =   0                 	     '   0   =   A x i s   X 
 
 	 S l o t S e n s o r   =   S l o t _ S e n s o r X   '   h o m e   s e n s o r   s l o t 
 
 	 D e t a c h M M   =   1 	 	 	     '   i n i t i a l   d e t a c h   m m   ( n e g   o r   p o s ) 
 
 	 S p e e d S e a r c h   =   - 0 . 3 3 	             '   d i r e c t i o n   a n d   s p e e d 
 
 	 S p e e d R e t u r n   =   + 0 . 0 5 	 	     '   D e t a c h   d i r e c t i o n   a n d   s p e e d 
 
 	 I n i t i a l P o s i t i o n   =   5 	 	     '   m o v e   t o   M M 
 
 	 G o s u b     H o m e 
 
 R e t u r n 
 
 
 
 L a b e l   H o m e Y 
 
 	 H o m e A x i s   =   1                 	     '   1   =   A x i s   Y 
 
 	 S l o t S e n s o r   =   S l o t _ S e n s o r Y   '   h o m e   s e n s o r   s l o t 
 
 	 D e t a c h M M   =   1 	 	 	     '   i n i t i a l   d e t a c h   m m   ( n e g   o r   p o s ) 
 
 	 S p e e d S e a r c h   =   - 0 . 3 	 	     '   d i r e c t i o n   a n d   s p e e d 
 
 	 S p e e d R e t u r n   =   + 0 . 0 5 	 	     '   D e t a c h   d i r e c t i o n   a n d   s p e e d 
 
 	 I n i t i a l P o s i t i o n   =   3 	 	     '   m o v e   t o   M M 
 
 	 G o s u b   H o m e 
 
 R e t u r n 
 
 
 
 L a b e l   H o m e 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - -   d e t a c h   i f   s e n s o r   i s   a c t i v e 
 
 	 I f   S l o t ( S l o t S e n s o r )   >   5 0 0   O r   K e y ( " C T R L " ) 
 
 	 	 I f   H o m e A x i s   =   0 
 
 	 	 	 D e s t X   =   D e s t X   +   D e t a c h M M 
 
 	 	 E l s e 
 
 	 	 	 D e s t Y   =   D e s t Y   +   D e t a c h M M 
 
 	 	 E n d I f 
 
 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ N o L i m i t s 
 
 	 	 G o s u b   W a i t M o t o r s 
 
 	 E n d I f 
 
         '   - - - - - - - - - - - - - - - - - - - - - - - - - -   s e a r c h   t h e   s e n s o r 
 
 L a b e l   S e a r c h H o m e 
 
 	 I f   H o m e A x i s   =   0 
 
 	 	 D e s t X   =   D e s t X   +   S p e e d S e a r c h 
 
 	 E l s e 
 
 	 	 D e s t Y   =   D e s t Y   +   S p e e d S e a r c h 
 
 	 E n d I f 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ N o L i m i t s 
 
 	 ' 
 
 	 W a i t   S e c o n d s   0 . 0 0 5 
 
 	 I f   S l o t ( S l o t S e n s o r )   >   5 0 0   O r   K e y ( " C T R L " ) 
 
 	 	 G o s u b   C o r e X Y _ S e t N e w Z e r o 
 
 	 	 G o t o   D e t a c h S e n s o r 
 
 	 E n d I f 
 
 G o t o   S e a r c h H o m e 
 
         '   - - - - - - - - - - - - - - - - - - - - - - - - - -   d e t a c h   f r o m   t h e   s e n s o r 
 
 L a b e l   D e t a c h S e n s o r 
 
 	 I f   H o m e A x i s   =   0 
 
 	 	 D e s t X   =   D e s t X   +   S p e e d R e t u r n 
 
 	 E l s e 
 
 	 	 D e s t Y   =   D e s t Y   +   S p e e d R e t u r n 
 
 	 E n d I f 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ N o L i m i t s 
 
 	 W a i t   S e c o n d s   0 . 0 0 5 
 
 	 I f   S l o t   ( S l o t S e n s o r )   <   5 0 0   O r   K e y ( " C T R L " ) 
 
 	 	 G o s u b   W a i t M o t o r s 
 
 	 	 G o s u b   C o r e X Y _ S e t N e w Z e r o 
 
 	 	 G o t o   M o v e T o I n i t i a l P o s i t i o n 
 
 	 E n d I f 
 
 G o t o   D e t a c h S e n s o r 
 
         '   - - - - - - - - - - - - - - - - - - - - - - - - - -   m o v e   t o   I n i t i a l P o s i t i o n 
 
 L a b e l   M o v e T o I n i t i a l P o s i t i o n 
 
 	 I f   H o m e A x i s   =   0 
 
 	 	 D e s t X   =   I n i t i a l P o s i t i o n 
 
 	 E l s e 
 
 	 	 D e s t Y   =   I n i t i a l P o s i t i o n 
 
 	 E n d I f 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ N o L i m i t s 
 
 	 G o s u b   W a i t M o t o r s 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     W A I T   u n t i l   t h e   m o t o r s   A   a n d   B   a r e   s t o p p e d 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 L a b e l   W a i t M o t o r s 
 
 	 W a i t   S e c o n d s   0 . 1                   '   t h i s   e n s u r e s   t h a t   t h e   m o t o r s   a r e   r u n n i n g 
 
 	 L a b e l   W a i t M o t o r s 1 
 
 	 	 I f   A b s ( S l o t ( S l o t _ M o t o r A   +   1 ) )   <   0 . 0 5 
 
 	 	 	 I f   A b s ( S l o t ( S l o t _ M o t o r B   +   1 ) )   <   0 . 0 5 
 
 	 	 	 	 R e t u r n 
 
 	 	 	 E n d I f 
 
 	 	 E n d I f 
 
 	 	 W a i t   S e c o n d s   0 . 0 0 5 
 
 	 G o t o   W a i t M o t o r s 1 
 
 G o t o   W a i t M o t o r s 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S E R V O - M O T O R S   M O V E M E N T S 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   P O W E R _ I N 
 
 V a r i a b l e   N u m e r i c   P O W E R _ O U T 
 
 V a r i a b l e   N u m e r i c   U S B 3 _ I N 
 
 V a r i a b l e   N u m e r i c   U S B 3 _ O U T 
 
 V a r i a b l e   N u m e r i c   U S B C _ I N 
 
 V a r i a b l e   N u m e r i c   U S B C _ O U T 
 
 V a r i a b l e   N u m e r i c   H D M I _ I N 
 
 V a r i a b l e   N u m e r i c   H D M I _ O U T 
 
 V a r i a b l e   N u m e r i c   U S B P W R _ I N 
 
 V a r i a b l e   N u m e r i c   U S B P W R _ O U T 
 
 V a r i a b l e   N u m e r i c   O N O F F _ I N 
 
 V a r i a b l e   N u m e r i c   O N O F F _ O U T 
 
 V a r i a b l e   N u m e r i c   V O L U M E _ I N _ U P 
 
 V a r i a b l e   N u m e r i c   V O L U M E _ O U T 
 
 V a r i a b l e   N u m e r i c   V O L U M E _ I N _ D W 
 
 V a r i a b l e   N u m e r i c   M E M O R Y _ I N 
 
 V a r i a b l e   N u m e r i c   M E M O R Y _ O U T 
 
 V a r i a b l e   N u m e r i c   H E A R S E T _ I N 
 
 V a r i a b l e   N u m e r i c   H E A R S E T _ O U T 
 
 V a r i a b l e   N u m e r i c   P E N _ D O W N 
 
 V a r i a b l e   N u m e r i c   P E N _ U P 
 
 V a r i a b l e   N u m e r i c   P E N _ T O U C H _ T I M E 
 
 
 
 V a r i a b l e   N u m e r i c   S L O T _ P O W E R 	 	 	 '   d i g i t a l   m o t o r   1 
 
 V a r i a b l e   N u m e r i c   S L O T _ U S B 3 	 	 	 '   d i g i t a l   m o t o r   2 
 
 V a r i a b l e   N u m e r i c   S L O T _ U S B C 	 	 	 '   d i g i t a l   m o t o r   3 
 
 V a r i a b l e   N u m e r i c   S L O T _ H D M I 	 	 	 '   d i g i t a l   m o t o r   4 
 
 V a r i a b l e   N u m e r i c   S L O T _ U S B P W R 	 	 '   d i g i t a l   m o t o r   5 
 
 V a r i a b l e   N u m e r i c   S L O T _ O N O F F 	 	 	 '   d i g i t a l   m o t o r   6 
 
 V a r i a b l e   N u m e r i c   S L O T _ V O L U M E 	 	 '   d i g i t a l   m o t o r   7 
 
 V a r i a b l e   N u m e r i c   S L O T _ M E M O R Y 	 	 '   d i g i t a l   m o t o r   8 
 
 V a r i a b l e   N u m e r i c   S L O T _ H E A R S E T 	 	 '   d i g i t a l   m o t o r   9 
 
 V a r i a b l e   N u m e r i c   S L O T _ P E N 	 	 	 '   d i g i t a l   m o t o r   1 0 
 
 V a r i a b l e   N u m e r i c   S L O T _ R O T A T 	 	 	 '   d i g i t a l   m o t o r   1 1 
 
 V a r i a b l e   N u m e r i c   S L O T _ T a b l e t P o w e r       '   T a b l l e t   p o w e r   s e n s i n g 
 
 
 
 ' L a b e l     S T A R T   L O O P 
 
 ' 	 v 2   =   I n p u t   " H o w   m a n y   l o o p s   ? " 
 
 ' 	 F o r   v 1   =   1   T o   v 2 
 
 ' 	 	 G o s u b   " A L L   I N " 
 
 ' 	 	 W a i t   S e c o n d s   0 . 5 
 
 ' 	 	 G o s u b   " A L L   O U T " 
 
 ' 	 	 W a i t   S e c o n d s   0 . 5 
 
 ' 	 N e x t 
 
 ' R e t u r n 
 
 
 
 L a b e l     P O W E R   O U T 
 
 	 M o v e _ S l o t   =   S L O T _ P O W E R 
 
 	 M o v e _ D e s t   =   P O W E R _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 	 B u t t o n   1   C o l o r   C h o c o l a t e 
 
 	 B u t t o n   2   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l     P O W E R   I N 
 
 	 M o v e _ S l o t   =   S L O T _ P O W E R 
 
 	 M o v e _ D e s t   =   P O W E R _ I N 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 	 B u t t o n   1   C o l o r   L i m e 
 
 	 B u t t o n   2   C o l o r   C h o c o l a t e 
 
 R e t u r n 
 
 
 
 L a b e l     U S B 3   O U T 
 
 	 M o v e _ S l o t   =   S L O T _ U S B 3 
 
 	 M o v e _ D e s t   =   U S B 3 _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     U S B 3   I N 
 
 	 M o v e _ S l o t   =   S L O T _ U S B 3 
 
 	 M o v e _ D e s t   =   U S B 3 _ I N 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     U S B C   I N 
 
 	 M o v e _ S l o t   =   S L O T _ U S B C 
 
 	 M o v e _ D e s t   =   U S B C _ I N 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     U S B C   O U T 
 
 	 M o v e _ S l o t   =   S L O T _ U S B C 
 
 	 M o v e _ D e s t   =   U S B C _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     H D M I   O U T 
 
 	 M o v e _ S l o t   =   S L O T _ H D M I 
 
 	 M o v e _ D e s t   =   H D M I _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     H D M I   I N 
 
 	 M o v e _ S l o t   =   S L O T _ H D M I 
 
 	 M o v e _ D e s t   =   H D M I _ I N 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     U S B P W R   O U T 
 
 	 M o v e _ S l o t   =   S L O T _ U S B P W R 
 
 	 M o v e _ D e s t   =   U S B P W R _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     U S B P W R   I N 
 
 	 M o v e _ S l o t   =   S L O T _ U S B P W R 
 
 	 M o v e _ D e s t   =   U S B P W R _ I N 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 
 
 L a b e l   R e c e i v e F i l e F r o m C O M 
 
 	 V a r i a b l e   S t r i n g   F i l e N a m e 
 
 	 V a r i a b l e   S t r i n g   S t r 1 
 
 	 ' 
 
 	 C O M   D i s c a r d I n B u f f e r 
 
 	 ' 
 
 	 S t r 1   =   " " 
 
 	 F o r   v 1   =   1   T o   9 e 9 9 
 
 	 	 s 1   =   C O M _ R e c e i v e d 
 
 	 	 I f   s 1   < >   " " 
 
 	 	 	 s 1   =   R e p l a c e ( s 1 ,   " { { { C R L F } } } " ,   C R L F ) 
 
 	 	 	 S t r 1   =   S t r 1   +   s 1 
 
 	 	 	 I f   s 1   =   " { { { F i l e E n d M a r k e r } } } " 
 
 	 	 	 	 S t r 1   =   R e p l a c e ( S t r 1 ,   " { { { F i l e E n d M a r k e r } } } " ,   " " ) 
 
 	 	 	 	 S a v e   D e l e t e F i l e   F i l e N a m e 
 
 	 	 	 	 S a v e   S t r i n g T o F i l e   S t r 1   F i l e N a m e 
 
 	 	 	 	 E x i t 
 
 	 	 	 E n d I f 
 
 	 	 E n d I f 
 
 	 	 W a i t   S e c o n d s   0 . 0 1 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 
 
 
 
 L a b e l     O N O F F   O U T 
 
 	 M o v e _ S l o t   =   S L O T _ O N O F F 
 
 	 M o v e _ D e s t   =   O N O F F _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     O N O F F   I N 
 
 	 M o v e _ S l o t   =   S L O T _ O N O F F 
 
 	 M o v e _ D e s t   =   O N O F F _ I N 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     V O L U M E   O U T 
 
 	 M o v e _ S l o t   =   S L O T _ V O L U M E 
 
 	 M o v e _ D e s t   =   V O L U M E _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     V O L U M E   U P 
 
 	 M o v e _ S l o t   =   S L O T _ V O L U M E 
 
 	 M o v e _ D e s t   =   V O L U M E _ I N _ U P 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     V O L U M E   D W 
 
 	 M o v e _ S l o t   =   S L O T _ V O L U M E 
 
 	 M o v e _ D e s t   =   V O L U M E _ I N _ D W 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     M E M O R Y   O U T 
 
 	 M o v e _ S l o t   =   S L O T _ M E M O R Y 
 
 	 M o v e _ D e s t   =   M E M O R Y _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     M E M O R Y   I N 
 
 	 M o v e _ S l o t   =   S L O T _ M E M O R Y 
 
 	 M o v e _ D e s t   =   M E M O R Y _ I N 
 
 	 M o v e _ S p e e d   =   3 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     H E A R S E T   O U T 
 
 	 M o v e _ S l o t   =   S L O T _ H E A R S E T 
 
 	 M o v e _ D e s t   =   H E A R S E T _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     H E A R S E T   I N 
 
 	 M o v e _ S l o t   =   S L O T _ H E A R S E T 
 
 	 M o v e _ D e s t   =   H E A R S E T _ I N 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l     P E N   U P 
 
 	 M o v e _ S l o t   =   S L O T _ P E N 
 
 	 M o v e _ D e s t   =   P E N _ U P 
 
 	 S l o t ( M o v e _ S l o t )   =   M o v e _ D e s t 
 
 	 W a i t   S e c o n d s   0 . 1 
 
 R e t u r n 
 
 
 
 L a b e l     P E N   D O W N 
 
 	 M o v e _ S l o t   =   S L O T _ P E N 
 
 	 M o v e _ D e s t   =   P E N _ D O W N 
 
 	 S l o t ( M o v e _ S l o t )   =   M o v e _ D e s t 
 
 	 W a i t   S e c o n d s   0 . 1 
 
 R e t u r n 
 
 
 
 L a b e l     P E N   S I N G L E 
 
 	 G o s u b     P E N   D O W N 
 
 	 W a i t   S e c o n d s   0 . 3 5 
 
 	 G o s u b     P E N   U P 
 
 R e t u r n 
 
 
 
 L a b e l     P E N   D O U B L E 
 
 	 S l o t ( S L O T _ P E N )   =   P E N _ D O W N 
 
 	 W a i t   S e c o n d s   0 . 0 9 
 
 	 S l o t ( S L O T _ P E N )   =   P E N _ U P 
 
 	 W a i t   S e c o n d s   0 . 1 
 
 	 S l o t ( S L O T _ P E N )   =   P E N _ D O W N 
 
 	 W a i t   S e c o n d s   0 . 0 9 
 
 	 S l o t ( S L O T _ P E N )   =   P E N _ U P 
 
 R e t u r n 
 
 
 
 L a b e l     P E N   T Y P I N G 
 
 	 M o v e _ S l o t   =   S L O T _ P E N 
 
 	 M o v e _ D e s t   =   P E N _ D O W N 
 
 	 S l o t ( M o v e _ S l o t )   =   M o v e _ D e s t 
 
 	 W a i t   S e c o n d s   P E N _ T O U C H _ T I M E 
 
 	 M o v e _ S l o t   =   S L O T _ P E N 
 
 	 M o v e _ D e s t   =   P E N _ U P 
 
 	 S l o t ( M o v e _ S l o t )   =   M o v e _ D e s t 
 
 	 
 
 	 ' B u t t o n   1 0   T e x t     P E N   U P 
 
 R e t u r n 
 
 
 
 L a b e l     P O W E R   O N 
 
 	 G o s u b     U S B 3   I N 
 
 	 B u t t o n   4   C o l o r   F l a s h i n g 8   Y e l l o w 5   R e d 5 
 
 	 G o s u b     O N O F F   I N 
 
 	 W a i t   S e c o n d s   3 
 
 	 I f   S l o t ( S L O T _ T a b l e t P o w e r )   >   5 0 0 
 
 	 	 B u t t o n   4   C o l o r   P a l e G r e e n 
 
 	 	 B u t t o n   5   C o l o r   R e d 
 
 	 E l s e 
 
 	 	 P r i n t   " P O W E R   O N   F A I L U R E " 
 
 	 E n d I f 
 
 	 G o s u b     O N O F F   O U T 
 
 R e t u r n 
 
 
 
 L a b e l     P O W E R   O F F 
 
 	 G o s u b     U S B 3   I N 
 
 	 B u t t o n   4   C o l o r   Y e l l o w 6 
 
 	 B u t t o n   5   C o l o r   F l a s h i n g 8   Y e l l o w 5   R e d 5 
 
 	 G o s u b     O N O F F   I N 
 
 	 W a i t   S e c o n d s   1 0 
 
 	 I f   S l o t ( S L O T _ T a b l e t P o w e r )   <   5 0 0 
 
 	 	 B u t t o n   4   C o l o r   B l a c k 
 
 	 	 B u t t o n   5   C o l o r   B l a c k 
 
 	 E n d I f 
 
 	 G o s u b     O N O F F   O U T 
 
 R e t u r n 
 
 
 
 L a b e l     E N A B . M O T O R S 
 
 	 G o s u b   W a i t M o t o r s 
 
 	 S l o t ( S l o t _ E n a b l e M o t o r s )   =   1 0 0 0 
 
 ' I f   B u t t o n V i s i b l e ( 2 ) 
 
 ' 	 B u t t o n   2   T e x t   " D I S A B . M O T O R S " 
 
 ' 	 B u t t o n   2   C o l o r   G r e e n Y e l l o w 
 
 ' E n d I f 
 
 R e t u r n 
 
 
 
 L a b e l     D I S A B . M O T O R S 
 
 	 G o s u b   W a i t M o t o r s 
 
 	 S l o t ( S l o t _ E n a b l e M o t o r s )   =   0 
 
 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 ' 	 I f   B u t t o n V i s i b l e ( 3 ) 
 
 ' 	 B u t t o n   3   T e x t   " E N A B . M O T O R S " 
 
 ' 	 B u t t o n   3   C o l o r   R e d 
 
 ' E n d I f 
 
 R e t u r n 
 
 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S E R V O - M O T O R S   M O V E   S L O W 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   M o v e _ S l o t 
 
 V a r i a b l e   N u m e r i c   M o v e _ S p e e d 
 
 V a r i a b l e   N u m e r i c   M o v e _ D e s t 
 
 V a r i a b l e   N u m e r i c   M o v e _ P o s 
 
 
 
 L a b e l   M o v e S l o w 
 
 	 M o v e _ P o s   =   S l o t ( M o v e _ S l o t ) 
 
 	 I f   M o v e _ D e s t   >   M o v e _ P o s 
 
 	 	 M o v e _ P o s   =   M o v e _ P o s   +   M o v e _ S p e e d 
 
 	 	 I f   M o v e _ P o s   >   M o v e _ D e s t 
 
 	 	 	 M o v e _ P o s   =   M o v e _ D e s t 
 
 	 	 E n d I f 
 
 	 E l s e 
 
 	 	 M o v e _ P o s   =   M o v e _ P o s   -   M o v e _ S p e e d 
 
 	 	 I f   M o v e _ P o s   <   M o v e _ D e s t 
 
 	 	 	 M o v e _ P o s   =   M o v e _ D e s t 
 
 	 	 E n d I f 
 
 	 E n d I f 
 
 	 S l o t ( M o v e _ S l o t )   =   M o v e _ P o s 
 
 	 W a i t   S e c o n d s   0 . 0 1 
 
 	 I f   M o v e _ P o s   =   M o v e _ D e s t 
 
 	 	 R e t u r n 
 
 	 E n d I f 
 
 G o t o   M o v e S l o w 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S T E P P E R - M O T O R S   M O V E   S L O W 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   M o v e S l o w X Y _ D e s t X   	 '   d e s t i n a t i o n   i n   m m 
 
 V a r i a b l e   N u m e r i c   M o v e S l o w X Y _ D e s t Y   	 '   d e s t i n a t i o n   i n   m m 
 
 V a r i a b l e   N u m e r i c   M o v e S l o w X Y _ S p e e d   	 '   s p e e d   i n   m m / s e c 
 
 
 
 V a r i a b l e   N u m e r i c   M S V 1 
 
 V a r i a b l e   N u m e r i c   M S V 2 
 
 V a r i a b l e   N u m e r i c   M S V 3 
 
 V a r i a b l e   N u m e r i c   M S V 4 
 
 
 
 L a b e l   M o v e S l o w X Y 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   t e s t   f o r   v e r y   l o w   s p e e d 
 
 	 I f   M o v e S l o w X Y _ S p e e d   <   0 . 1 
 
 	 	 M o v e S l o w X Y _ S p e e d   =   1 
 
 	 E n d I f 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   t h e   m o v e m e n t   i n   m m 
 
 	 M S V 1   =   M o v e S l o w X Y _ D e s t X   -   D e s t X 
 
 	 M S V 2   =   M o v e S l o w X Y _ D e s t Y   -   D e s t Y 
 
 	 M S V 3   =   M S V 1   *   M S V 1 
 
 	 M S V 3   =   M S V 3   +   M S V 2   *   M S V 2 
 
 	 M S V 3   =   S q r t ( M S V 3 ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   t h e   l o o p s   c o u n t 
 
 	 M S V 4   =   M S V 3   /   0 . 0 1   ' < < <   l o o p   t i m e 
 
 	 M S V 4   =   I n t ( M S V 4   /   M o v e S l o w X Y _ S p e e d ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   t o o   m u c h   s p e e d   ? 
 
 	 I f   M S V 4   =   0 
 
 	 	 D e s t X   =   M o v e S l o w X Y _ D e s t X 
 
 	 	 D e s t Y   =   M o v e S l o w X Y _ D e s t Y 
 
 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 	 R e t u r n 
 
 	 E n d I f 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   p r e p a r e   t h e   i n c r e m e n t s 
 
 	 M S V 1   =   ( M o v e S l o w X Y _ D e s t X   -   D e s t X )   /   M S V 4 
 
 	 M S V 2   =   ( M o v e S l o w X Y _ D e s t Y   -   D e s t Y )   /   M S V 4 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   l o o p   f o r   v 4   t i m e s 
 
 	 F o r   M S V 3   =   1   T o   M S V 4 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   i n c r e m e n t ,   m o v e   a n d   w a i t 
 
 	 	 D e s t X   =   D e s t X   +   M S V 1 
 
 	 	 D e s t Y   =   D e s t Y   +   M S V 2 
 
 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 	 W a i t   S e c o n d s   0 . 0 1   ' < < <   l o o p   t i m e 
 
 	 N e x t 
 
 	 G o s u b   W a i t M o t o r s 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S T E P P E R - M O T O R S   D R A W   C I R C L E 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   D r a w C i r c l e _ X   	         '   C e n t e r   X   i n   m m 
 
 V a r i a b l e   N u m e r i c   D r a w C i r c l e _ Y   	         '   C e n t e r   Y   i n   m m 
 
 V a r i a b l e   N u m e r i c   D r a w C i r c l e _ R a d i u s     '   R a d i u s   i n   m m 
 
 V a r i a b l e   N u m e r i c   D r a w C i r c l e _ S p e e d   	 '   S p e e d   i n   m m / s e c 
 
 
 
 V a r i a b l e   N u m e r i c   D C V 1 
 
 V a r i a b l e   N u m e r i c   D C V 2 
 
 V a r i a b l e   N u m e r i c   D C V 3 
 
 V a r i a b l e   N u m e r i c   D C V 4 
 
 
 
 L a b e l   D r a w C i r c l e 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   t e s t   f o r   v e r y   l o w   s p e e d 
 
 	 I f   D r a w C i r c l e _ S p e e d   <   0 . 1 
 
 	 	 D r a w C i r c l e _ S p e e d   =   1 
 
 	 E n d I f 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   t h e   m o v e m e n t   i n   m m 
 
 	 D C V 3   =   D r a w C i r c l e _ R a d i u s   *   M a t h _ P I   *   2 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   t h e   l o o p s   c o u n t 
 
 	 D C V 4   =   D C V 3   /   0 . 0 1   ' < < <   l o o p   t i m e 
 
 	 D C V 4   =   I n t ( D C V 4   /   D r a w C i r c l e _ S p e e d ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   t o o   m u c h   s p e e d   ? 
 
 	 I f   D C V 4   <   1 6 
 
 	 	 D C V 4   =   1 6 
 
 	 E n d I f 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   p r e p a r e   t h e   i n c r e m e n t s 
 
 	 D C V 1   =   2   *   M a t h _ P I   /   D C V 4 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   l o o p   f o r   v 4   t i m e s 
 
 	 F o r   D C V 3   =   0   T o   D C V 4 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   c i r c l e 
 
 	 	 D C V 2   =   D C V 3   *   D C V 1 
 
 	 	 D e s t X   =   D r a w C i r c l e _ X   +   D r a w C i r c l e _ R a d i u s   *   S i n ( D C V 2 ) 
 
 	 	 D e s t Y   =   D r a w C i r c l e _ Y   +   D r a w C i r c l e _ R a d i u s   *   C o s ( D C V 2 ) 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   m o v e   a n d   w a i t 
 
 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 	 W a i t   S e c o n d s   0 . 0 1   ' < < <   l o o p   t i m e 
 
 	 N e x t 
 
 	 G o s u b   W a i t M o t o r s 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S T E P P E R - M O T O R S   a n d   P E N   a c t i o n   S L I D E 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   S l i d e _ D e s t X   	   '   d e s t i n a t i o n   i n   m m 
 
 V a r i a b l e   N u m e r i c   S l i d e _ D e s t Y   	   '   d e s t i n a t i o n   i n   m m 
 
 V a r i a b l e   N u m e r i c   S l i d e _ S p e e d   	   '   s p e e d   i n   m m / s e c 
 
 V a r i a b l e   N u m e r i c   S l i d e _ P e n U p T i m e   '   p e n - u p   t i m e   i n   m S   f r o m   s t a r t 
 
 
 
 V a r i a b l e   N u m e r i c   S L V 1 
 
 V a r i a b l e   N u m e r i c   S L V 2 
 
 V a r i a b l e   N u m e r i c   S L V 3 
 
 V a r i a b l e   N u m e r i c   S L V 4 
 
 V a r i a b l e   N u m e r i c   S L V 5 
 
 
 
 L a b e l   S L I D E 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 S l i d e _ D e s t X   =   5 0                                     ' 5 0 
 
 	 S l i d e _ D e s t Y   =   1 3 0                                   ' 1 3 0 
 
 	 S l i d e _ S p e e d   =   2 0 0                                   ' 2 0 0 
 
 	 S l i d e _ P e n U p T i m e   =   5 0 0                           ' 5 0 0 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   t h e   m o v e m e n t   i n   m m 
 
 	 S L V 1   =   S l i d e _ D e s t X   -   D e s t X 
 
 	 S L V 2   =   S l i d e _ D e s t Y   -   D e s t Y 
 
 	 S L V 3   =   S L V 1   *   S L V 1 
 
 	 S L V 3   =   S L V 3   +   S L V 2   *   S L V 2 
 
 	 S L V 3   =   S q r t ( S L V 3 ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   t h e   l o o p s   c o u n t 
 
 	 S L V 4   =   S L V 3   /   0 . 0 1   ' < < <   l o o p   t i m e 
 
 	 S L V 4   =   I n t ( S L V 4   /   S l i d e _ S p e e d ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   p r e p a r e   t h e   i n c r e m e n t s 
 
 	 S L V 1   =   ( S l i d e _ D e s t X   -   D e s t X )   /   S L V 4 
 
 	 S L V 2   =   ( S l i d e _ D e s t Y   -   D e s t Y )   /   S L V 4 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   p r e p a r e   t h e   p e n - u p   t i m e 
 
 	 S L V 5   =   S l i d e _ P e n U p T i m e   /   1 0 0 0 
 
 	 S L V 5   =   I n t ( S L V 5   /   0 . 0 1 )   ' < < <   l o o p   t i m e 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   p e n   d o w n 
 
 	 S l o t ( S L O T _ P E N )   =   P E N _ D O W N 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   l o o p   f o r   v 4   t i m e s 
 
 	 F o r   S L V 3   =   1   T o   S L V 4 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   i n c r e m e n t ,   m o v e   a n d   w a i t 
 
 	 	 D e s t X   =   D e s t X   +   S L V 1 
 
 	 	 D e s t Y   =   D e s t Y   +   S L V 2 
 
 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 	 W a i t   S e c o n d s   0 . 0 1   ' < < <   l o o p   t i m e 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   p e n   u p 
 
 	 	 I f   S L V 3   =   S L V 5 
 
 	 	 	 S l o t ( S L O T _ P E N )   =   P E N _ U P 
 
 	 	 E n d I f 
 
 	 N e x t 
 
 	 G o s u b   W a i t M o t o r s 
 
 	 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     R O T A T I O N S   V E R T I C A L / H O R I Z Z O N T A L 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   S l o t _ R o t H V _ D r i v e 
 
 V a r i a b l e   N u m e r i c   S l o t _ R o t H V _ C u r r e n t 
 
 V a r i a b l e   N u m e r i c   S l o t _ R o t H V _ M a x C u r r e n t 
 
 
 
 L a b e l     R O T A T E   V E R T 
 
 	 S l o t   9 9 8   =   6 0 0 	 	 	 ' s t a r t   S i g n a l   S c o p e 
 
 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 F o r   v 1   =   1   T o   1 3 0 0                 '   < < <   1 0 0 0   =   1 0   s e c   t i m e o u t   ( a p p r o x ) 
 
 	 	 W a i t   S e c o n d s   0 . 0 0 9 
 
 	 	 I f   S l o t ( S l o t _ R o t H V _ C u r r e n t )   >   S l o t _ R o t H V _ M a x C u r r e n t 
 
 	 	 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 	 	 S l o t   9 9 8   =   0 	 ' s t o p   S i g n a l   S c o p e 
 
 	 	 	 B u t t o n   1 2   L a b e l   " R O T A T E   H O R Z " 
 
 	 	 	 G o t o   E x i t R o t a t e V e r t 
 
 	 	 E n d I f 
 
 	 N e x t 
 
 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 S l o t   9 9 8   =   0 	 	 	 ' s t o p   S i g n a l   S c o p e 
 
 	 B u t t o n   1 2   L a b e l   " R O T A T E   H O R Z " 
 
 ' 
 
 L a b e l   E x i t R o t a t e V e r t 
 
 R e t u r n 
 
 
 
 L a b e l     R O T A T E   M I D L 
 
 	 S l o t   9 9 8   =   6 0 0 	 	 	 ' s t a r t   S i g n a l   S c o p e 
 
 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 F o r   v 1   =   1   T o   6 0 0                 '   < < <   1 0 0 0   =   1 0   s e c   t i m e o u t   ( a p p r o x ) 
 
 	 	 W a i t   S e c o n d s   0 . 0 0 9 
 
 	 	 I f   S l o t ( S l o t _ R o t H V _ C u r r e n t )   >   S l o t _ R o t H V _ M a x C u r r e n t 
 
 	 	 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 	 	 S l o t   9 9 8   =   0 	 ' s t o p   S i g n a l   S c o p e 
 
 	 	 	 G o t o   E x i t R o t a t e M i d l 
 
 	 	 E n d I f 
 
 	 N e x t 
 
 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 S l o t   9 9 8   =   0 	 	 	 ' s t o p   S i g n a l   S c o p e 
 
 ' 
 
 L a b e l   E x i t R o t a t e M i d l 
 
 R e t u r n 
 
 
 
 L a b e l     R O T A T E   H O R Z 
 
 	 S l o t   9 9 8   =   6 0 0 	 	 	 ' s t a r t   S i g n a l   S c o p e 
 
 	 S l o t   S l o t _ R o t H V _ D r i v e   =   0 
 
 	 W a i t   S e c o n d s   0 . 3 
 
 	 F o r   v 1   =   1   T o   1 3 0 0                 '   < < <   1 0 0 0   =   1 0   s e c   t i m e o u t   ( a p p r o x ) 
 
 	 	 W a i t   S e c o n d s   0 . 0 0 9 
 
 	 	 I f   S l o t ( S l o t _ R o t H V _ C u r r e n t )   >   S l o t _ R o t H V _ M a x C u r r e n t 
 
 	 	 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 	 	 S l o t   9 9 8   =   0 	 ' s t o p   S i g n a l   S c o p e 
 
 	 	 	 B u t t o n   1 2   L a b e l     R O T A T E   V E R T 
 
 	 	 	 G o t o   E x i t R o t a t e H o r z 
 
 	 	 E n d I f 
 
 	 N e x t 
 
 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 S l o t   9 9 8   =   0 	 	 	 ' s t o p   S i g n a l   S c o p e 
 
 	 B u t t o n   1 2   L a b e l     R O T A T E   V E R T 
 
 	 ' 
 
 L a b e l   E x i t R o t a t e H o r z 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     J O G   W I T H   M O U S E 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   J o g _ E n a b l e _ S l o t 
 
 V a r i a b l e   N u m e r i c   J o g _ R a n g e X 
 
 V a r i a b l e   N u m e r i c   J o g _ R a n g e Y 
 
 V a r i a b l e   N u m e r i c   J o g _ A c t i v e 
 
 
 
 L a b e l     J O G   w i t h   M o u s e 
 
 	 G o s u b     E N A B . M O T O R S 
 
 	 B u t t o n   8   L a b e l     " J O G   S T O P " 
 
 	 J o g _ A c t i v e   =   1 
 
 	 L a b e l   J o g 2 
 
 	 	 I f   S l o t ( J o g _ E n a b l e _ S l o t )   >   5 0 0 
 
 	 	 	 D e s t X   =   M o u s e X   *   J o g _ R a n g e X 
 
 	 	 	 D e s t Y   =   M o u s e Y   *   J o g _ R a n g e Y 
 
 	 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 	 	 P r i n t   F o r m a t ( D e s t X ,   " 0 . 0 0 0 " )   +   "   "   +   F o r m a t ( D e s t Y ,   " 0 . 0 0 0 " ) 
 
 	 	 E n d I f 
 
 	 	 I f   J o g _ A c t i v e   =   0 
 
 	 	 	 R e t u r n 
 
 	 	 E n d I f 
 
 	 G o t o   J o g 2 
 
 R e t u r n 
 
 
 
 L a b e l     J O G   S T O P 
 
 	 B u t t o n   8   L a b e l   " J O G   w i t h   M o u s e " 
 
 	 J o g _ A c t i v e   =   0 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     J O G   w i t h   k e y b o a r d 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 L a b e l   E x e c K e y s 
 
 	 V a r i a b l e   N u m e r i c   K e y J o g _ S p e e d 
 
 	 V a r i a b l e   N u m e r i c   J o g S p e e d 
 
 	 J o g S p e e d   =   K e y J o g _ S p e e d   /   1 0 0 
 
 	 S e l e c t   T r u e 
 
 	 	 C a s e   K e y ( " S H I F T " ) 
 
 	 	 	 J o g S p e e d   =   J o g S p e e d   *   0 . 1 
 
 	 	 C a s e   K e y ( " C T R L " ) 
 
 	 	 	 J o g S p e e d   =   J o g S p e e d   *   0 . 0 1 
 
 	 	 C a s e   K e y ( " A L T " ) 
 
 	 	 	 J o g S p e e d   =   J o g S p e e d   *   0 . 0 0 1 
 
 	 E n d S e l e c t 
 
 	 ' 
 
 	 I f   K e y ( " R i g h t " ) 
 
 	 	 D e s t X   =   D e s t X   +   J o g S p e e d 
 
 	 E n d I f 
 
 	 I f   K e y ( " L e f t " ) 
 
 	 	 D e s t X   =   D e s t X   -   J o g S p e e d 
 
 	 E n d I f 
 
 	 ' 
 
 	 I f   K e y ( " U p " ) 
 
 	 	 D e s t Y   =   D e s t Y   +   J o g S p e e d 
 
 	 E n d I f 
 
 	 I f   K e y ( " D o w n " ) 
 
 	 	 D e s t Y   =   D e s t Y   -   J o g S p e e d 
 
 	 E n d I f 
 
 	 ' 
 
 	 ' I f   K e y ( " P a g e U p " ) 
 
 	 ' 	 S l o t   S l o t _ Z   =   L i m i t ( S l o t ( S l o t _ Z )   +   J o g S p e e d ,   Z m i n ,   Z m a x ) 
 
 	 ' E n d I f 
 
 	 ' I f   K e y ( " P a g e D o w n " ) 
 
 	 ' 	 S l o t   S l o t _ Z   =   L i m i t ( S l o t ( S l o t _ Z )   -   J o g S p e e d ,   Z m i n ,   Z m a x ) 
 
 	 ' E n d I f 
 
 	 ' 
 
 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y 
 
 	 G o s u b   P r i n t V a l u e s 
 
 R e t u r n 
 
   
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     P R I N T   C O O R D I N A T E S 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 L a b e l   P r i n t V a l u e s 
 
 	 s 1   =               " D e s t X = "   +   F o r m a t ( D e s t X ,   " 0 . 0 0 0 " )   
 
 	 s 1   =   s 1   +   "   D e s t Y = "   +   F o r m a t ( D e s t Y ,   " 0 . 0 0 0 " )   
 
 	 P r i n t   C R L F   +   s 1   
 
 R e t u r n   
 
 
 
 
 
 ' B O O K M A R K S   2 9 3 8   
 
 
 
 ' E D I T E D L I N E S   7 4 4 6   2   7 4 4 5   1   7 4 4 5   2   7 4 4 4   3   7 4 4 3   4   7 4 4 2   5   7 4 4 1   6   7 4 4 0   7   7 4 3 9   8   7 4 3 8   9   7 4 3 7   1 0   
 
 
 
 ' W A T C H   S e q u e n c e L e n g t h 
 
 ' W A T C H   S e q u e n c e C m d 
 
 ' E X E C   D e s t X   =   1 2 
 
 